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Abstract. In the present paper MAPLE subroutines computing Milnor and 
Tyurina numbers of an isolated algebraic hypersurface singularity are pre- 
sented and described in detail. They represents examples, and perhaps the 
first ones, of a MAPLE implementation of local monomial ordering. 
As an application, the last section is devoted to writing down equations of 
algebraic stratifications of Kuranishi spaces of simple Arnol'd singularities: 
they geometrically represents, by means of inclusions of algebraic subsets, the 
partial ordering on classes of simple singularities induced by the adjacency 
relation. 
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Two basic invariants of a complex analytic complete intersection singularity 
p G U = f~^(0) are its Milnor number and its Tyurina number t(j)). The 
former essentially "counts the number" of vanishing cycles in the intermediate co- 
homology of a nearby smoothing Ut — f^^(i) of U, which actually turns out to 
be the multiplicity of p as a critical point of the map f . The latter " counts the 
dimension" of the base space of a versal deformation of p G J7, which actually turn 
out to be the multiplicity of p as a singularity of the complex space U. After the 
Looijenga-Steenbrink Theorem [17] it is a well known fact that t{p) < fJ,{p). 

The purpose of the present paper is to present MAPLE subroutines [1 allowing 
to compute those invariants in the case of an isolated algebraic hypersurface sin- 
gularity (i.h.s.). In fact, from the computational point of view, their calculation 
could be very intricate to end up and a computer employment may be needed in 
most situations. Let us underline that the actual originality of our procedure is 
not so much based on the effective computation of those invariants as on its imple- 
mentation with a very interdisciplinary and worldwide diffused and known math 
software like MAPLE is. In fact computer algebra packages computing those sin- 
gularities' invariants already exists (one for all is SINGULAR [2]). But our hope 
is that routines here presented could be useful to all those who are interesting, 
for any reason, in a concrete evaluation of those invariants without being so much 
motivated for learning an entire computer algebra package. Once implemented, the 
present routine is so easy that even an undergraduate student may use it! 

In other words we believe that the present routine could be an interesting and, 
as far as we know, the first example of a MAPLE implementation of local monomial 
ordering (l.m.o.). In fact term orders, i.e. usual monomial ordering (recently called 
global in contrast with the word local), are already implemented in MAPLE with 
the command MonomialOrder in the Groebner package. Actually user-defined term 
orders are also allowed and, in particular, l.m.o. 's can be easily defined as the 
opposite of a standard g.m.o. (pure lexicographic, graded lexicographic, reverse ... 
etc.). The problem is that Buchberger S-procedure may not end up determining a 
normal form since a l.m.o. is not a well-order on the contrary of g.m.o. 's. Then the 
present MAPLE routines start with an implementation of the Mora algorithm for 
determining a weak normal form and then monomial bases of Milnor and Tyurina 
ideals in the complex ring of convergent power series C{a;i, . . . , a;„+i} (see |20) . 
[T5] Algorithm 1.7.6, [5] Algorithm 9.22). As a consequence a monomial basis of 
the Kuranishi space, parameterizing small versal deformations of the given i.h.s., 
is obtained, allowing to concretely write down these deformations even for more 
intricate cases. Actually we get procedures which are able to perform calculation 
in (C[A])[x], where A — (Ai, . . . , A^) is an r-tuple of parameters e.g. coordinates of 
the Kuranishi space. 

An interesting application of this latter feature is that of writing down equa- 
tions of algebraic stratifications in Kuranishi spaces of Arnol'd simple singularities. 
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giving an explicit geometric interpretation, by means of inclusions of algebraic sub- 
sets, of Arnol'd's adjacency partial order relation over classes of simple singularities 
(see Section This section ends up with an explicit list of the most specialized 
1-parameter deformations of simple singularities realizing adjacencies between dis- 
tinct classes of simple singularities fsee I6.7p . 

Acknowledgements. We are greatly indebt with G. M. Greuel who timely pointed 
out to us serious mistakes in the first version of the this note. His concise and 
sharp remarks considerably helped us to improve our routine and the final product. 
Authors would also like to thank A. Albano for enlightening conversations. 

1. MiLNOR NUMBER OF AN ISOLATED HYPERSURFACE SINGULARITY 

From the topological point of view a good representative U of an isolated hyper- 
surface singularity (i.h.s.) is the zero locus of a holomorphic map 

(1) / : C"+i — >C , n > 

admitting an isolated critical point in G C^. 

Set Ut ■= f~^{T) where T is a small enough neighborhood of G C. Then we can 
assume that f is a submersion over Ut \ {0}: therefore U = /^^(O) = Uo and Ut 
is a local smoothing of U, for ^ t T. 

Definition 1.1. Let A C C™ be a subset. The following subset of C" 

Cno(A) := {tx | £ [0, 1] C R , Vx G X} 
will be called the cone projecting X. 

Theorem 1.2 (Local topology of a isolated hypersurface singularity, [18] Theorem 

2.10, Theorem 5.2). Let denote the closed ball of radius e > 0, centered in 
G C""*"^, whose boundary is the 2n + 1-dimensional sphere S'^"^^ . Then, for e 
small enough, the intersection 

B, ■~ur\D, 

is homeomorphic to the cone Cno{K) projecting K := U f] S^"^^, which is called 
the knot or link of the singularity £ U . 

Theorem— Definition 1.3 (Local homology type of the smoothing [TH], Theorems 

5.11, 6.5, 7.2). Set U := Ut for some t € T . Then, for e small enough, the 
intersection 

(called the Milnor fibre of f) has the homology type of a bouquet of n-dimensional 
spheres. In particular the n-th Betti number bn{B^) (called the Milnor number rUp 
of p) coincides with the multiplicity of the critical point G C""*"^ of f as a solution 
to the following collection of equations 

df _df _ _ df _^ 

dxi dx2 dxn+i 
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1.1. Milnor number from the algebraic point of view. Theorem 11.31 allows 
the following algebraic interpretation of the Milnor number. 

Let Oq be the local ring of germs of holomorphic function of C""'""'^ at the origin. 
By definition of holomorphic function and the identity principle we have that Oq 
is isomorphic to the ring of convergent power series <C{xi, . . . ,Xn+i}. A germ of 
hypersurface singularity is defined as the Stein complex space 

(2) Uo := Spec(0/,o) 

where O/^o := C'o/(/) and / is the germ represented by the series expansion of the 
holomorphic function ([1]). 

Definition 1.4 (Milnor number of an i.h.s, see e.g. p^). The Milnor number of 
the hypersurface singularity G [/q is defined as the multiplicity of the critical point 
e C"^"'^ of f as a solution of the system of partials of f {18\ §7) which is 

(3) Hf{0) = dime (Oo/Jf) = dime (C{xi, . . . ,Xn+i}/ Jf) 

where dime means "dimension as a C- vector space" and Jf is the jacobian ideal 
(^"' ■ ■ ■ ' dx\i ) • ^'^^ shortness we will denote the Milnor number ([3]) by 
/i(0) whenever / is clear. 



2. Tyurina number of an isolated hypersurface singularity 



2.1. Deformations of complex spaces. Let X — > B be a flat, surjective map 
of complex spaces such that B is connected and there exists a special point E B 
whose fibre X — 2:^^(0) may be singular. Then X is called a deformation family 
of X. If the fibre Xi, ~ x^^{b) is smooth, for some b € B, then Xi, is called a 
smoothing of X. 

Let J7x be the sheaf of holomorphic differential forms on X and consider the 
Lichtenbaum-Schlessinger cotangent sheaves [15] of X, O^f — Sxt'' (flx,Ox)■ 
Then = Horn {fix, Ox) =■ ©Jf is the "tangent" sheaf of X and ©^ is sup- 
ported over Sing(X), for any i > 0. Consider the associated local and global defor- 
mation objects 



Tx -.^H^X^&x) 



X 



Ext^ {n],,Ox) 



0,1,2. 



Then by the local to global spectral sequence relating the global Ext and sheaf £x t 
(see [H] and [lO] II, 7.3.3) we get 



HP (x,e^) 



ip+g 
X 



giving that 

(4) 
(5) 
(6) 



T°-H"{X,ex) , 



if X is smooth then ^ H\X, Qx) , 
if X is Stein then Tl = T\ 



^x 



Recall that X — > B is called a versal deformation family of X if for any deforma- 
tion family (y, X) (C, o) of X there exists a map of pointed complex spaces 
h : {U,o) {B,0), defined on a neighborhood o £ U C C, such that y\u is the 
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pull-back of A" by /i i.e. 

y\u = uxBX — ^x 

V X 



Theorem 2.1 (Douady-Grauert-Palamodov [2], [H], [H] and [22] Theorems 5.4 
and 5.6). Every compact complex space X has an effective versal deformation X 
B which is a proper map and a versal deformation of each of its fibers. Moreover 
the germ of analytic space {B,0) (the Kuranishi space oi X) is isomorphic to the 
germ of analytic space (q~^(0),0), where q : T]^ T|- is a suitable holomorphic 
map (the obstruction mapj such that q{0) = 0. 

In particular if q = (e.g. when T|- = 0) then {B, 0) turns out to be isomorphic 
to the germ of a neighborhood of the origin in T^^ . 

2.2. Deformations of an i.h.s. Let us consider tire germ of i.h.s. Uq := Spec{0 ffi) 
as defined in ([2]). 

Definition 2.2 (Tyurina number of an i.h.s.). The Tyurina number of the i.h.s. 

e C/o is 

T/(0) dime = dime T^, - h\U^, e^J 
often denoted simply by r(0) whenever / is clear. Since is Stein, the obstruction 
map q in Theorem 12. II is trivial and the Tyurina number r(0) turns out to give the 
dimension of the Kuranishi space ofUo. 

Proposition 2.3 (see e.g. [23]). If <E Uq = Spec(C'/^o) is the germ of an i.h.s. 
then T^^ = Of^/Jf and 

(7) T/(0) = dime (C{a;i, . . . ,x„+i}///) ■ 

where If :— (/) + Jf. Then, recalling (0), t(0) < /i(0). In particular t(0) gives the 
multiplicity of as a singular point of the complex space germ Uq. 

3. MiLNOR AND Tyurina numbers of a polynomial 

Let us consider the polynomial algebra C[x] :— C[a;i, ...,Xn+i] and let / C C[x] 
be an ideal. If we consider the natural inclusion C[x] C C{x} := C{xi, . . . ,Xn+i} 
then we get 

(8) dime (C{x}// • C{x}) < dime (C[x]//) 
since the algebra C{x} contains also non constant units. 

Example 3.1. Let us consider the ideal I — {x + x^) C C[a;]. Then C[a;]// — (1, a;)e 
while C{x}/I ■ C{x} = (I)e, since x G / • C{x} being associated with the generator 
X + x"^ hy the unit I + a; G C{.t}. This means that 

(9) 1 = dime {€{x}/I ■ C{x}) < dime (C[a;]//) = 2 . 

In particular the first equality means that, recalling Definition If .41 and formula ([3]), 
the Milnor number of G C, as a critical point of the polynomial map f{x) = 
(i + ^x)x^ , turns out to be /i(0) = 1. 

Let us then set the following 
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Definition 3.2 (Milnor and Tyurina numbers of a polynomial). Given a polyno- 
mial / G C[x] the following dimension 

(10) A^(/) :=dimc(C[x]/J/) 

is called the Milnor number of the polynomial f. Analogously the dimension 

(11) t(/) :=dimc(C[x]///) 

where // := (/) + Jf, is called the Tyurina number of the polynomial f. Then 
clearly t(/) < fiif). 

The inequality ([5]) then gives that /i/(p) < n{f) and Tf{p) < T{f), for any point 
p G C"+^ and any polynomial / G C[x]. Moreover Milnor and Tyurina numbers of 
points and polynomials are related by the following 

Proposition 3.3 (see e.g. [13] §A.9). For any f G C[xi, . . . ,a;„+i] 

(12) m = E t^f^P^ 

rif) - E ^f(P^ 

Remark 3.4. Observe that sums on the right terms of (|12p are actually finite and 
well-defined since fi{p) ^ if and only if p is a critical point of the polynomial map 
/ and t{p) ^ if and only if p is a singular point of the n-dimensional algebraic 
hypersurface f-^{0) C C"+i. 

Example 3.5 (Example l3. ll continued) . Critical points of the polynomial map /(x) = 
(i + ^x)x'^ are given by and —1. The translation x i— > x — 1 transforms / into 
the polynomial g{x) — i(i + x){x — 1)^ and 

fifi^l) = ^lg{0) - dime (C{a;}/(.T2 - x)) = 1 . 

The inequality ([9]) then gives 2 = /i(/) ~ M/(0) + /i/(— 1), according with the first 
equality in (|12p . Moreover is the unique singular point of the 0-dimensional 
hypersurface /-^O) = {-3/2,0} C C and 



t(/) - dimc{C[x] / [[- + -x]x',x + x']] =1 



T/(0) = dimc(^C{x}y (^(^i + ixjx2,x + x2jj =1 
according with the second equality in . 

3.1. Milnor and Tyurina numbers of weighted homogeneous polynomials. 

Let us recall that a polynomial / G C[a;i, . . . , Xn+i] is called weighted homogeneous 
(w.h.p.) or quasi-homogeneous if there exist n+1 positive rational numbers w = 
(wi,. . . , Wn+i) G Q"+^ such that 

n+1 



wiOi = 1 
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for any monomial x" :— HlLi appearing in /; w is then called the vector of 
(rational) weights of f and the generalized Euler formula 

(13) / = X]^*^^^ 

i—l 

follows immediately for any w.h.p. / S C[x] admitting the same vector of weights. 
For any i = 1, . . . , rt + 1, let {pi,qi) S be the unique ordered couple of positive 
coprime integers such that Pi/qi is the reduced fraction representing the positive 
rational number Wi . Calling d the least common f3,ctor of dGnomiiicLtors qi, . . . , Q'n+i; 
the positive integers di :— dwi satisfy the fohowing weighted homogeneity relation 

(14) VAeC /(A''^a;i,...,A''"+ix„+i) = A'* /(xi,...,x„+i) . 

For this reason d ~ (di, . . . , o?n+i) is called the vector of integer weights of f and 
d ^ |d| is called the degree of f. 

Proposition 3.6. Given a polynomial f £ C[x] with a finite number of critical 
points, the following assertions are equivalent: 

(a) f is a w.h.p., 

(b) T{f)^ti{f), 

(c) Vp e C"+i t{p) = ^i{p). 

In particular (c) implies that the set of critical points of f coincides with the set of 
singular points of f~^{0). Moreover (a) means actually that the origin G C"^^ 
is the unique possible critical point of f and then the unique possible singular point 
o//~^(0). Therefore (b) and ((c) give that 

(15) m = Kf) - rif) ^ t(0) . 

Proof, (a) (c). The generalized Euler formula ([T3|) implies that // — Jf and (c) 
follows immediately by ^ and In particular if x = (xi, . . . , Xn+i) is a critical 
point of /, then and give that {X'^^xi, . . . , X'^^+^ Xn+i) is a critical point of 
/ for any complex number A. Then x = since / admits at most a finite number 
of critical points, meaning that / admits at most the origin as a critical point, 
(c) (6). This follows immediately by Proposition 13.31 

(6) (a). Since J/ C If then we get the natural surjective map of C-algebras 

C[x]/J^^-C[x]//; 

The hypothesis r(/) = ii{f) implies that it is also injective which suffices to show 
that Jf =If. Hence f £ Jf and a famous result by K. Saito [24] allows to conclude 
that / is a w.h.p.. □ 

Definition 3.7 (Weighted homogeneous singularity - w.h.s.). A n-dimensional 
i.h.s. G C/q = SpecO/^o is called weighted homogeneous (or quasi-homogeneous) 
if there exists a w.h.p. F e C[xi, . . . ,a;„+i] such that Uq = SpecC'i;'_o, as germs of 
complex spaces. 

Remark 3.8. Definition 13.71 is equivalent to require that there exists an automor- 
phism (j)* of Oq — C{x}, induced by a biholomorphic local coordinates change 

(C"+\0) ^ (C"+i,0), such that 0*(/) := f o (f) = F (see [12] Lemma 2.13). 

Proposition 3.9 (Characterization of a w.h.s). £ [/q = SpecO/^o is a w.h.s. if 

and only if Tf{Q) = /i/(0). 
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Proof. The statement follows immediately by Proposition 13.61 keeping in mind 
Remark 13.81 and observing that the jacobian ideals J/ and Jf can be obtained 
each other by multiplying the jacobian matrix of the coordinate change (f), which is 
clearly invertible in a neighborhood of 0. □ 

3.2. An example: weighted homogeneous cDV singularities. An example 
of an isolated hypersurface singularity is given by a compound Du Val (cDV) sin- 
gularity which is a 3~fold point p such that, for a hyperplane section H through p, 
p e 77 is a Du Val surface singularity i.e. an A-D~E singular point (see Q^, §0 and 
§2, and 6 , chapter III). Then a cDV point p is a germ of hypersurface singularity 
e ?7o := Spec(C'/^o), where / is the polynomial 

(16) f{x, y, z, t) := + q{y, z) + t g{x, y, z, t) , 

such that g(x, y, z, t) is a generic element of the maximal ideal mo := {x, y, z, t) C 
C[x, y, z, t] and 

-1 



(17) 



An 








Dn 




= y^z 


+ z" 


Ee 


q{v,z) 


= y'^ 




Er 


q{v,z) 




yz^ 


Ea 




= 


z^ 



for n > 1 
for n > 4 



In particular if 

(18) g{x,y,z,t) = t 

then / = in (|16p is said to define an Arnol'd simple (threefold) singularity ([3], 
[5] §15 and in particular [4] §1.2.3) denoted by A„, D„, i?6,7,8, respectively. 
The index (n, 6, 7, 8) turns out to be the Milnor number of the surface Du Val 
singularity € C/q H = 0} or equivalently its Tyurina number, since a Du Val 
singular point always admits a weighted homogeneous local equation. When a 
cDV point is defined by a weighted homogeneous polynomial /, a classical result 
of J. Milnor and P. Orlik allows to compare this index with its Milnor (and then 
Tyurina) number. In particular we get 



(19) 



w{x) = 
w{y) = 

w{z) = 




if p is cAn , 
-2) if p is cDn, 
Hp is cEej^a- 

if p is cAn , 
if p is cDn, 
if p is cEq , 
if p is ci?7, 
if p is cEs ■ 

Thm. 1). Let f{xi, . . . , Xn+i) heaw.h.p., with 
admitting an isolated critical point at the origin. 



Theorem 3.10 (Milnor-Orhk 
rational weights wi, . . . , Wn+i, 
Then the Milnor number of the origin is given by 

/.(O) = {w^^ - 1) {w^^ - 1) • • • [w-l^ - 1) . 

By putting weights (|19p in the previous Milnor-Orlik formula we get the following 
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Corollary 3.11. Le G t/o be a w.h. cDV point of index n. Then 

r(0) = /i(0) =n{w{t)-^ - 1) . 

In particular for Arnol'd simple singularities we get n — t(0) — /i(0), as can also 
be directly checked by the definition. 

3.3. The algebraic computation via Grobner basis. Let us consider an ideal 
/ C C[x] and let L{I) denote the ideal generated by leading monomials, with respect 
to a fixed monomial order, of elements in /. It is a well known fact (see e.g. [7] 
§5.3) that the following are isomorphisms of C-vector spaces 

(20) C[xi,...,a;„+i]// C[xi,...,x„+i]/L(/) (Af \ L(/))c 

where M is the set (actually a multiplicative monoid) of all monomials x" . Consider 
a polynomial / € C[x]. By Definition 13.21 and isomorphisms (I20|) . the computation 
of yu(/) and r(/) reduces to calculate 

dime iC[xi,...,Xr,+i]/L{I)) - \M\LiI)\ 

where L{I) is the ideal generated by leading monomials, with respect to a fixed 
monomial order, of elements in the ideal / C C[a;i, . . . ,Xn+i] which is either the 
jacobian ideal Jf or the ideal // = (/) + Jf, respectively. The point is then 
determining a Grobner basis of I w.r.t. the fixed monomial order, which can be 
realized e.g. by the Groebner Package of MAPLE. 

Remark 3.12. The MAPLE computation of Milnor and Tyurina numbers of poly- 
nomials is realized by procedures PolyMilnor and PolyTyurina, whose concrete 
description is postponed to section [5] Their usefulness is clarified by Proposition 
13.61 and in particular by equations (|15p . In fact in the case of a w.h. p. / admit- 
ting an isolated critical point in G C""*"^ there is no need of working with power 
series (and then with local monomial orders) to determine /x(0) and t(0). Since 
the Buchberger algorithm implemented with MAPLE turns out to be more efficient 
when running by usual term orders, the use of global procedures PolyMilnor and 
PolyTyurina has to be preferred to the use of their local counterparts Milnor and 
Tyurina, when possible. 

4. Monomial Ordering 

First of all let us recall what is usually meant by a monomial order. For more 
details the interested reader in remanded e.g. to [7] §2.2, [13 §9 and [8] §1. 

Let M be the multiplicative monoide of monomials x" = 0"=*! -"^T ■ clearly 
log : M ^ N"^^. A (global) monomial order on C[x] is a total order relation < on 
M which is 

(i) multiplicative i.e. Va, 7 G N"+"'^ x" < x'^ => x" • x'*' < x'^ • x'^ , 

(ii) a well-ordering i.e. every nonempty subset of AI has a smallest element. 
Since C[x] is a noetherian ring a multiplicative total order on AI is a well-ordering 
if and only if 

(ii') Vi = 1, . . . , n -|- 1 I < Xi . 

Definition 4.1 (Local and global monomial orders, [13] Definition 1.2.4). In the 
following a m.o. on C[x] will denote simply a total order relation < on M which is 
multiplicative i.e. satisfying (i). A m.o. will be called global (g.m.o.) if also (ii), or 
equivalently (ii'), is satisfied. Moreover a m.o. will be called local (l.m.o.) if 
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(ii") Vi = 1,...,71 + 1 Xi<l . 

4.1. Localizations in C[x] and rings implemented by monomial orders. 
Given a m.o. < on M consider the following subset of C[x] 

S:^ {/gC[x] I L(/)eC\{0}} 

where L(f) is the leading monomial of / w.r.t. < . Since S* is a multiplicative 
subset of C[x] we can consider the localization S'~^C[x]. Then (ii') and (ii") give 
immediately the following 

Proposition 4.2. 

S'^Cfx] = C[x] 4=> < is a g.m.o. 
iS'^"'"C[x] = C[x](x) ^ < is a I. m.o. 
where C[x](x) the localization o/C[x] at the maximal ideal (x) C C[x]. 

By Taylor power series expansion of locally holomorphic functions, there is a 
natural inclusion C[x](x) C C{x} giving the following commutative diagram, for 
every ideal / C C[x](x): 

C[x](x)C ^C{x} 



C[x](x)//^ C{x}//.C{x} 

Proposition 4.3 (for a proof see e.g. [8] Proposition 9.4). //dime (C[x](x)/^) 
is finite then the inclusion C[x](x)/ 1 C C{x}// • C{x} is an isomorphism of C- 
algebras. In particular both the underlying vector spaces have the same dimension. 

Theorem 4.4 ([8J Theorem 9.29). Let < be a m.o. on C[x] and I C S'"iC[x] be 
an ideal. Then 

dime (5-'C[x]//) = dime (C[x]/L(/)) 
where L{I) is the ideal generated by leading monomials, with respect to < , of 
polynomials in I . In particular if it is finite then M\L{I) represents a basis of the 
vector space S^^'C[yi\. 

Corollary 4.5. Let f G C[x] admit an isolated critical point at G C""'""'^, < be a 
m.o. on C[x] and I = Jf (resp. I = If). Then 



dime (C[x]/L(/)) 



^J.{f) {resp. T{f)) if < is global 
/xy(0) {resp. Tf{Q)) if < is local 



Remark 4.6. The point is then determining a standard basis of I w.r.t. the fixed 
m.o. < . If the latter is a global one, a standard basis is a usual Grobner basis which 
is obtained by applying the Buchberger algorithm. In MAPLE this is implemented 
by the Groebner Package. 

On the other hand, if < is a local m.o. the Buchberger algorithm does no more 
work. In fact < is no more a well-ordering and the division algorithm employed 
by the Buchberger algorithm for determining normal forms of S-polynomials may 
do not terminate. This problem can be dodged by means of a weak normal form 
algorithm {weakNF), firstly due to F. Mora [20j . and of a standard basis algorithm 
{SB) which replaces the Buchberger algorithm. This is precisely what has been 
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implemented in SINGULAR since 1990 (see [13] §1.7 and references thereof). The 
aim of the foUowing section [5] is to present a MAPLE implementation of weakNF 
and SB algorithms to yield a procedure computing Milnor and Tyurina numbers 
of points. 



5. MAPLE SUBROUTINES IN DETAIL 

The present section is devoted to present and describe in detail MAPLE subrou- 
tines computing Milnor and Tyurina numbers of critical points of a polynomial /. 
They are available as MAPLE 12 files .mw at [1]. They are composed by several 
procedures, the most important of which are the following: 

• weakNF which is the MAPLE implementation of the weak normal form 
Algorithm 1.7.6 in [B]: 

Input : / G C[x] , G a finite subset in C[x] , 
variables C x = {xi, . . . ,x„+i} , 

STO = a MAPLE type ShortMonomialOrder expression 
Output : /i £ (C[x \ variables]) [variables] 

which is a polynomial weak normal form of / w.r.t. G ; 

• SB which is the MAPLE implementation of the standard basis Algorithm 
1.7.1 in [13]: 

Input : G a finite subset in C[x], weakNF , 
Output : a standard basis 5 of / := (G) C C[x] ; 

• Milnor which is the procedure computing the Milnor number of an iso- 
lated critical point: 

Input : F G C[x] , SB , 

Optional: variables, by default assigned by indets(F) 
Optional: a l.m.o., by default assigned by tdeg_ min(variables) 
Output : A standard basis G of Jf C (C[x \ variables]) [variables], L{G), 
M\L{Jf) , /iF(0) ; 

• PolyMilnor which is the procedure computing the Milnor number of a 
polynomial: 

Input : F G C[x] , Basis in the Groebner package , 

Optional: variables, by default assigned by indets(F) 
Optional: a g.m.o., by default assigned by tdeg (variables) 
Output : A Grobner basis G of Ji? C (C[x \ variables]) [variables], L{G), 
M \ L{ Jf) , ti{F) ■ 



12 



M. ROSSI AND L.TERRACINI 



• Tyurina which is the procedure computing the Tyurina number of an 
isolated singular point: 

Input : F e C[x] , SB , 

Optional: variables, by default assigned by iiidets(F) 

Optional: a l.m.o., by default assigned by tdeg_ min(variables) 

Output : A standard basis G of Ip C (C[x \ variables]) [variables], L{G), 

M\L{If) , tf(0) ; 

• PolyTyurina which is the procedure computing the Tyurina number of a 
polynomial: 

Input : F G C[x] , Basis in the Groebner package , 

Optional: variables, by default assigned by indets(F) 
Optional: a g.m.o., by default assigned by tdeg (variables) 
Output : A Grobner basis G oi Ip C (C[x \ variables]) [variables], L{G), 
M\L{If) , t(F) . 

5.1. The subroutines. Preambles to introduce the useful MAPLE packages: 

> with (Groebner) : 

> with(Polynomialldeals) : 

> with(Ore_algebra) : 

A first control procedure : 

> localorglobal := proc (STO, variables) 

> A:= poly_algebra(op (variables) ) ; TP := MonomialDrder (A, STO); 

> nuu : = 1 ; muu : = 1 ; 

> for i to nops (variables) do if TestOrder(l , variables [i] , TP) 

> then nuu : = else muu : = end if end do ; 

> if nuu = 1 then Lo else if muu = 1 then Gl else Mi 

> end if end if end proc: 

Actually localorglobal is not an essential procedure in the present routine: its 
meaning is simply that of giving a feedback about what kind of m.o. the user is 
employing and stopping the procedure running with a wrong term order: in fact 
Milnor and Tyurina may give wrong output when running with a g.m.o.; on the 
other hand PolyMilnor and PolyTyurina may not terminate when running with 
a l.m.o.. 

5.1.1. Implementing local monomial orders. The following three procedures give 
the core of the MAPLE implementation of l.m.o. 's for determining standard basis 
of ideals in C[x](-x). The first procedure introduces the ecart concept which is the 
main ingredient in the Mora algorithm weakNF. It is defined following [13j Definition 
1.7.5: 

> ecart := proc (f , variables, STO) 

> degree(f, variables) -degree (LeadingMonomial (f , STO), variables) 

> end proc: 

Then we give the Mora algorithm for determining a weak normal form of a poly- 
nomial / G C[x] w.r.t. a finite subset of polynomials G C C[x] (see [13] Algorithm 
1.7.6 and [8] Algorithm 9.22): 
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> weakNF := proc (f , G, variables, STO) 

> h := f; 

> TT := G; 

> TTh := {}; for i to nops(TT) do 

> if divide (LeadingMonomiaKh, STO) ,LeadingMonomial(TT[i] , STO)) 

> then TTh := {TT[i], op (TTh)} 

> end if end do ; 

> while (h <> and TTh <> {}) do 

> L := [op(TTh)]; 

> LI := sort(L, proc (tl, t2) options operator, arrow; 

> ecartCtl, variables, STO) <= ecart(t2, variables, STO) end proc); 

> g := Ll[l] ; 

> if ecartCh, variables, STO) < ecartCg, variables, STO) 

> then TT := {h, op(TT)} end if; 

> h := SPolynomiaKh, g, STO); 

> TTh := {}; 

> for i to nops(TT) do 

> if divide (LeadingMonomiaKh, STO), LeadingMonomial(TT[i] ,STO)) 

> then TTh := {TT[i], op (TTh)} end if end do end do; 

> h end proc 

At last the standard basis procedure giving the analogue of Buchberger algorithm 
with l.m.o.'s: 



> SB := proc (G, variables, STO) 

> S := G; 

> P:= {seq(seq({G[i] , G [j] } , j=i+l . .nops (G) ) , i=l . .nops (G) )} ; 

> while P <> {} do 

> PI := P[l] ; 

> P := 'minus' (P, {PI}) ; 

> h := weakNF(SPolynomial(Pl[l] ,P1[2] ,STO), S, variables, STO); 

> if h <> then P := {seq({h, S[i]}, i = 1 .. nops(S)) ,op(P)}; 

> S := {h, op(S)} end if end do; 

> S end proc: 

5.1.2. Computing Milnor and Tyurina numbers. We are now in a position to intro- 
duce the procedures computing Milnor and Tyurina numbers of critical points of 
a polynomial F € C[x]. They actually give some more output. Precisely, saying 
I = Jp (resp. / = If) Milnor (resp. Tyurina) returns: 



• a standard basis G of the ideal / • C[x](x) C C[x](x), 

• the leading monomial basis L[G) w.r.t. a fixed m.o.. 

• M\ L{I) representing ( mod / • C[x]) a basis of the quotient vector space 
C[x](x) //•C[x](x) 

• and its dimension over C, which is /Uf(0) (resp. tf(0)). 



Each of the previous output may be listed separately by means of the sub-procedures 
MilnorGroebnerBasis , MilnorLT, MilnorBasis and MilnorNumber (respectively, 
TyurinaGroebnerBasis, TyurinaLT, TyurinaBasis and TyurinaMumber). 

The Milnor procedure: 
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> Milnor := proc (F, variables: : set: =indets(F) , 

> U: : anything: =tdeg_niin(op(variables))) 

> if type (U, ShortMonomialOrder) = false then error 

> "invalid input: your ShortMonomialOrder is not well defined" 

> else if localorglobal (U, variables) <> Lo then error 

> "invalid input: your Short Monomial Order should be LOCAL" 

> else r := nops (variables) ; 

> J := [seq(diff(F, variables [i] ) , i = l..r)]; 

> G := SB (J, variables, U) ; 

> Ini := [seq(LeadingMonomial(G[i] , U) , i = 1 . .nops(G))] ; 

> massimo : =r*max(seq (degree (Ini [i] .variables) , i =1 . .nops (Ini) ) ) ; 

> if IsZeroDimensional(<(op(Ini))>,{op(variables)}) = false then 

> error "the given critical point is not isolated" 

> else 

> L := sort ( [op (subs (uq = 1, convert (map (expand, 

> series (1/ (product (l-variables[k]*uq, k = 1 .. r)), 

> uq, massimo+D), polynom)))], 

> proc (tl, t2) options operator, arrow; 

> TestOrder(tl, t2, U) end proc); 

> M : = [] ; 

> for j to nops(L) do up := 1; 

> for k to nops (Ini) do 

> if divide(L[j], Ini [k] ) then up := 

> end if end do; 

> if up = 1 then M := [op(M) , L[j]] 

> end if end do; 

> [G.Ini, M, nops(M)] 

> end if end if end if end proc: 

The associated sub-procedures: 



> MilnorGroebnerBasis : =proc (F , variables : : set : =indets (F) , 

> T: :einything:=tdeg_min (op (variables))) 

> Milnor (F, variables, T) [1] 

> end proc: 



> MilnorLT:=proc(F, variables: :set:=indets(F) , 

> T: : anything :=tdeg_min (op (variables))) 

> Milnor (F, variables, T) [2] 

> end proc: 



> MilnorBasis:=proc(F, variables: : set : =indets (F) , 

> T: : anything: =tdeg_min(op(variables))) 

> Milnor (F, variables ,T) [3] 

> end proc: 



> MilnorNumber : =proc (F , variables : : set : =indets (F) , 

> T: : anything :=tdeg_min (op (variables))) 

> Milnor (F, variables,!) [4] end proc: 

The Tyurina procedure: 
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> Tyurina := proc (F, variables :: set: =indets(F) , 

> U::anything := tdeg_min (op (variables) ) ) 

> if type (U, SliortMonomialOrder)=f alse then error 

> "invalid input: your ShortMonomialOrder is not well defined": 

> else if localorglobal (U, variables)<>Lo then error 

> "invalid input: your Short Monomial Order should be LOCAL": 

> else r := nops (variables) : 

> K := [F, seq(diff(F, variables [i] ) , i =1 . . r)] : 

> H := SB(K, variables, U) ; 

> Ini := [seq(LeadingMonomial(H[i] , U) , i = 1 . .nops(H))] ; 

> massimo : =r*max(seq(degree (Ini [i] ) , i = 1 .. nops (Ini) )) ; 

> if IsZeroDimensional(<(op(Ini))>,{op(variables)}) = false then 

> error "the given singular point is not isolated" 

> else 

> L := sort ( [op (subs (uq = 1, convert (map (expand, 

> series (1/ (product (l-variables[k]*uq, k = 1 .. r)), 

> uq, massimo+D), polynom)))], 

> proc (tl, t2) options operator, arrow; 

> TestOrder(tl, t2, U) end proc); 

> M : = [] ; 

> for j to nops(L) do up :=1; 

> for k to nops (Ini) do 

> if divide(L[j], Ini [k] ) then up := 

> end if end do; 

> if up = 1 then M := [op(M), L[j]] 

> end if end do; 

> [H, Ini, M, nops (M)] end if end if end if end proc: 

The associated sub-procedures: 



> TyurinaGroebnerBasis := proc (F, variables :: set := indets(F), 

> T::anything :=tdeg_min (op (variables))) 

> Tyurina(F, variables, T) [1] 

> end proc: 



> TyurinaLT := proc (F, variables :: set :=indets(F), 

> T::anything := tdeg_min (op (variables) ) ) 

> Tyurina (F, variables,!) [2] 

> end proc: 



> TyurinaBasis := proc (F, veiriables : : set : = indets(F), 

> T::anything := tdeg_min (op (variables) ) ) 

> Tyurina (F, variables,!) [3] 

> end proc: 



> TyurinaNumber := proc (F, variables :: set : = indets(F), 

> T::anything := tdeg_min (op (variables))) 

> Tyurina(F, variables, T) [4] 

> end proc: 

Ultimately the following procedures allows to compute Milnor and Tyurina num- 
bers fJ.{F) and t{F) of a polynomial F G C[x] . They give the same output of Milnor 
and Tyurina but for an ideal / C C[x], since they works with a g.m.o.. As before 
each output may be listed separately by means of analogous sub-procedures. 

The procedure computing /u(F): 
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> 


PolyMilnor := proc (F, variables :: set: =indets(F) , 




> 


U::anything := tdeg (op (variables) ) ) 




> 


if typeCU, ShortMonomialOrder) = false then error 




> 


"invalid input: your ShortMonomialOrder is not well 


defined" : 


> 


else if localorglobal (U, variables) <> Gl then error 




> 


"invalid input: your Short Monomial Order should be 


GLOBAL" : 


> 


else r := nops (variables) ; 




> 


J := [seq(diff(F, variables [i] ) , i = 1 .. r)] ; 




> 


G := Basis(J, U) ; 




> 


Ini := [seq(LeadingMonomial(G[i] , U) , i = 1 .. nops(G))]; 


> 


massimo : =r*max(seq (degree (Ini [i] ) , i=l . . nops (Ini) ) ) ; 




> 


if IsZeroDimensional(<(op(Ini))>, {op (variables) }) = 


false then 


> 


error "there are non isolated critical points" 




> 


else 




> 


L := sort ( [op(subs (uq = 1, convert (map (expaind, 




> 


series(l/(product(l-variables[k]*uq, k = 1 .. r)), 




> 


uq, massimo+D), polynom)))], 




> 


proc (tl, t2) options operator, arrow; 




> 


TestOrder(tl , t2, U) end proc); 




> 


M := []; 




> 


for j to nops(L) do up := 1; 




> 


for k to nops (Ini) do 




> 


if divide (L[j], Ini [k] ) then up := 




> 


end if end do; 




> 


if up = 1 then M := [op(M), L[j]] 




> 


end if end do; 




> 


[G, Ini, M, nops(M)] 




> 


end if end if end if end proc: 





The associated sub-procedures: 



> PolyMilnorGroebnerBasis := proc (F, variables :: set := indets(F), 

> T::anything :=tdeg (op (variables))) 

> PolyMilnor (F, variables, T) [1] 

> end proc: 



> PolyMilnorLT := proc (F, variables: : set: = indets(F), 

> T::anything := tdeg(op(variables) ) ) 

> PolyMilnor (F, variables, T) [2] 

> end proc: 



> PolyMilnorBasis := proc (F, variables :: set: = indets(F), 

> T::anything :=tdeg (op (variables))) 

> PolyMilnor (F, variables,!) [3] 

> end proc: 



> PolyMilnorNumber:=proc(F, variables :: set: = indets(F), 

> T::anything :=tdeg (op (variables))) 

> PolyMilnor (F, variables,!) [4] 

> end proc: 

The procedure computing r(F): 
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> PolyTyurina := proc (F, variables :: set : =indets (F) , 

> U :: anything := tdeg(op(variables))) 

> if type (U, ShortMonomialOrder) = false then error 

> "invalid input: your ShortMonomialOrder is not well defined": 

> else if localorglobal(U, variables) <> Gl then error 

> "invalid input: your Short Monomial Order should be GLOBAL" 

> else r := nops (variables) ; 

> K := [F,seq(diff (F, variables [i] ) , i = 1 .. r)] ; 

> H := BasisCK, U) ; 

> Ini := [seq(LeadingMonomial (H [i] , U) , i = 1 .. nops(H))]; 

> massimo : =r*max(seq (degree (Ini [i] ) , i=l . .nops (Ini) ) ) ; 

> if IsZeroDimensional(<(op(Ini))>, {op(variables) }) = false then 

> error "there are non isolated singular points" 

> else 

> L := sort ( [op (subs (uq = 1, convert (map (expand, 

> series (1/ (product (1-variables [k] *uq, k = 1 .. r)), 

> uq, massimo+D), polynom)))], 

> proc (tl, t2) options operator, arrow; 

> TestOrder(tl, t2, U) end proc); 

> M := [] ; 

> for j to nops(L) do up := 1; 

> for k to nops (Ini) do 

> if divide (L[j], Ini [k] ) then up := 

> end if end do ; 

> if up = 1 then M := [op(M) , L[j]] 

> end if end do; 

> [H, Ini, M, nops(M)] 

> end if end if end if end proc : 

The associated sub-procedures: 

> PolyTyurinaGroebnerBasis := proc (F, variables :: set := indets(F), 

> T::anything := tdeg(op(variables) ) ) 

> PolyTyurina(F, variables, T) [1] 

> end proc: 

> PolyTyurinaLT := proc (F, variables :: set : = indets(F), 

> T::anything := tdeg(op (variables) ) ) 

> PolyTyurina(F, variables,!) [2] 

> end proc: 

> PolyTyurinaBasis := proc (F, variables , 

> T::anything := tdeg(op(variables) ) ) 

> PolyTyurina(F, variables,!) [3] 

> end proc: 

> PolyTyurinaNumber := proc (F, variables :: set := indets(F), 

> T::anything := tdeg(op(variables))) 

> PolyTyurina(F, variables, T) [4] 

> end proc: 

5.2. Some user friendly examples. Once implemented the subroutine 15 . II needs 

quite simple and minimal commands to work. As a first example let us start, for 
comparison, by a problem already studied by using SINGULAR in [12] Example 
2.7.2(2). 

Example 5.1. Let us study critical points of F{x, y) :— + + x^y^ and singu- 
larities of F~^{0). Hence we have to type: 

> F:=x~5+y~5+x~2*y~2: 
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Let US find, at first, the critical points of F, by solving the algebraic system of 
partial derivatives: 

> solve({diff (F, x), diffCF, y)}, [x,y]); 

[[x = 0,2/ = 0], [x = 0,y = 0], [x = 0,y = 0], [x = 0,y = 0], [x = = 0], 
[x - 0,y = 0], [x = 0,v = 0], [x - 0,y = 0], [x = -2/5, y = -2/5], 



[x^ 2/5 -2/5 {RootOf {.Z^ - 
+2/5 {RootOf {.Z^ - . Z- 
-2/5 RootOf {.Z^ - _Z'^ 

y = 2/5 RootOf LZ* - .Z^ 



.Z^ - .Z + l,label ^ .L2)y 
.Z + 1, label = _L2)f 



1, label = 
I- 1, label 



-L2), 
-L2)]] 



Then F admits 6 critical points: the repetition of the solution in the origin means 
that this point is a multiple solution. Then we have to expect ^(0) > 0. 
Singular points of F^^(O) are given by: 



> solve({F, diff(F, 


x), diffCF, y)}, 


[x,y]) 










[[x^O,y^Ql[x = {),y 


= 0], [x 0,y = 0], 


[x = 0, 2/ = 


= 0], 


[x = 


= 0,y = 


= 0], 


[x 0,y = 0], [x = 0, ?; 


= 0],[x = 0,y = 0]. 


X = 0, y = 


0], 


X — 


0,y = 


0], 


[x = Q,y = Q\,[x = Q,y 


= 0],[x = 0,2; = 0]. 


X = 0, y = 


0], 


X = 


0,y = 


0], 


= 0,y = 0], [x = 0,?; 


= 0],[x = 0,2; = 0]. 


X = 0, y = 


0], 


X = 


0,y = 


0], 


= 0,y = 0], [x = 0,?; 


= 0],[x = 0,2; = 0]. 


X = 0, y = 


0], 


X = 


0,y = 


0], 


= 0,y = 0], [x = 0,?; 


= 0],[x-0,2; = 0]. 


X = 0, y = 


0], 


X = 


0,y- 


0], 


= 0,y = 0], [x = 0,?; 


= 0],[x = 0,2; = 0]. 


X = 0, y = 


0], 


X = 


0,y = 


0], 


[x==0,y = 0]] 















Then _F^^(0) has a unique singular point in the origin. Therefore, by the second for- 
mula in (|12|) . t{F) = t(0) meaning that TyurinaNumber and PolyTyurinaNumber 
give the same number. To get this number one simply have to type either 

> TyurinaNumber (F) 

10 



> PolyTyurinaNumber (F) 



10 



• In general, if F ^(0) admits a unique singular point the procedure 
PolyTyurina has to be preferred, since it turns out to he more efficient. 

To compute Milnor numbers let us start by fJ-i^F), by typing 

> PolyMilnorNumber (F) 

16 

Since r(0) < /i(0) and F admits 6 critical points, by (fT2|) we have to expect 10 < 
/^(O) < 11. Furthermore the 5 critical points different from the origin can be 
exchanged each other under the action of the order 5 cyclic group 



6^ + 1 = 0, l<i<5)c GL(2,C) 



which is also a subgroup of Aut(_F). Then they cannot assume Milnor number 
greater than 1, giving yu(0) = 11. In fact: 
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> MilnorNumber (F) 

11 

Then in this case, the use of solve, PolyTyurina and PolyMilnor, may avoid to 
employ Tyurina and Milnor which turn out to be in general less efficient procedures. 

Example 5.2 (w.h. polynomials). What observed at the end of the previous Exam- 
ple [STl] is obviously true for a w.h.p., after Proposition 13. 61 Let us in fact consider 
the Eq 3-dimensional singularity G F^^(O) where 

E{x,y,z,t) =^ + + z* + t^ . 

By CoroUarv 13.111 since w{t) = 1/2, one has to expect t(0) ~ /i(0) = 6. This fact 
can be checked by the quicker procedure PolyMilnor: 

> F:=x~2+y~3+z~4+t~2: 

> PolyMilnorNumber (F) ; 

6 

Example 5.3 (Non-isolated singularities). All the procedures presented in 15.1.21 
stop, giving an error message, if the considered polynomial admits non-isolated 
singularities. Consider, in fact, F = x^z^ + y^z^ + x^y'^ admitting the union of the 
three coordinate axes as the locus of critical (and singular, since F is homogeneous) 
points as can easily checked by typing: 

> F:=x~2*z~2+y~2*z~2+x~2*y~2: 

> solve ({diffCF, x), diffCF, y), diff(F,z)}, [x, y, z] ) ; 

[[x = 0,y = y, z = 0], [x ^ Q,y ^ y, z ^ 0],[x ^ x,y ^ 0, z = 0],[x = 0,y = 0, z = z]] 

Then: 

> PolyMilnorNumber (F) ; 

Error, (in PolyMilnor) there are non isolated critical points 

The user will obtain the similar error messages by running any of the other proce- 
dures. 

Remark 5.4 (Be careful with variables!). The second input of any procedure in 
15.1.21 is the set variables of variables one wants to work with. It is an optional 
input meaning that by default variables is assumed to be the set indets(F) of 
variables appearing in the polynomial F. This means that if the user is interesting in 
consider the cylinder F^^{0) where F : C"^ C is the polynomial map F{x, y, z) = 
— x{x — l)(a; — 2) then he have to type: 

> F := y~2-x*(x-l)*(x-2) : 

> PolyMilnor (F, {x, y, z}) ; 

Error, (in PolyMilnor) there are non isolated critical points 

which is right since F do not admit isolated critical points as can be checked by: 

> solve({diff (F, x), diffCF, y), diff(F,z)}, [x,y,z]); 

[[x = RootOf (3 .2-2 - 6 _Z + 2) , ?/ = 0, z = z]] 

By the way, if the set of variables is not specified then by default it is assumed to 
be {a;, y}, meaning that F is considered as a polynomial map from to C. In this 
case F admits only the two isolated critical points 
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> solveCdiff (F, x) , diff(F, y) , [x,y]) 

[[x = RootOf {3.Z^ -6.Z + 2, label = _Ll) , y^0]] 

In fact 

> PolyMilnor(F) ; 

Read the output as follows: the first output is the Grobner basis G oi Jp, the 
second output is the list of leading monomials of elements in G, the third output 
is M\L{Jp) whose cardinality is precisely the fourth output. Since the problem is 
symmetric w.r.t. the y-axis, n{F) = 2 implies that each critical point has Milnor 
number 1. 

Observe that the origin is not a critical point of F both as a polynomial map from 
and from C^. In fact 

> Milnor(F); 

[[- (x - 1) (x - 2) - a; (x - 2) - X (x - 1) , 2 y], [1, y], D, 0] 

> Milnor(F, {x, y, z}) 

[[0, - (x - 1) (x - 2) - X (x - 2) - X (x - 1) , 2 y], [1, 1, y], [], 0] 

In this case the first output is a standard bases of Jf whose leading monomials, 
w.r.t. a fixed l.m.o., give the second output. 

At last let us observe that the zero locus i^"^(0) is smooth both as a subset of 
and of C'^, in fact 

> PolyTyurina(F) ; 

[[i],[i],D,o] 

> PolyTyurina(F, {x, y, z}) ; 

[[1],[1],[],0] 

5.3. Optional input: some more subtle utilities. All the procedure described 
in 15.1.21 require three input: the polynomial F and two further optional input, 
precisely 

• a set of variables, by default set as the variables indets(F) appearing in 
F, 

• a monomial order, by default set either as tdeg(variables) , which is the 
MAPLE command for the graduated reverse lexicographic g.m.o., or as 
tdeg_ min (variables) , which is the l.m.o. defined as the tdeg opposite: 
the former is clearly introduced in PolyMilnor and PolyTyurina and the 
latter in Milnor and Tyurina. 

Introducing different choices may show interesting possibilities of our subroutine. 

5.3.1. Monomial ordering. It is a well known fact that the graduated reverse lexico- 
graphic g.m.o. is in general the more efficient monomial ordering for Buchberger al- 
gorithm: this is the reason for the default choices in PolyMilnor and PolyTyurina. 
Anyway, if needed, these procedures may run with many further g.m.o.: e.g. if, for 
any reason, the user will prefer to run PolyTyurina w.r.t. the pure lexicographic 
g.m.o. he will have to type, in the following case of a deformation of a threefold Es 
singularity: 
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> F:=x~2+y~3+z~5+t~2+y*z+y~2+z"2+y*z~2+z~3+y*z~3+z~4; 

F := x'^ + + t'^ + yz^ + + yz^ + / 

> PolyMiliior(F) ; 

[[x, t, 3yz^ - Iby^z + Az"^ + 2yz + 3y^,3y'^ + + z^, 
3375 y^ - 1677 y'^z - 639 y^ + 224 + 124 yz + llAy^, 
225 y^z - 324 y^z - 18 + 88 z^ + 38 + 93 y^] , 
[x, i, yz^, z^, y", y^z], [1, y, z, y^, yz, z^, y^, y^z], 8] 

> PolyMiliior(F,plex(x,y,z,t)) ; 

[[t, 31 z^ + 88 z"* + 159 z^ + 129 z^ + 75 z^, 

128 z^ + 319 z* + 237 z^ + 225 z^ + 69 z^ + 46 yz, 3 y^ + z^ + z^ x] , 
[i, 2;'^, yz, y2, a;], [1, z, z^, z^, z'', z^, z*^, y], 8] 

Observe how different are the two Grobner bases and consequently the leading 
monomial bases and associated bases of quotient vector spaces. The user may also 
verify how much slower is plex w.r.t. the default tdeg by running by himself the 
routines. 

In particular, running Tyurina w.r.t. different l.m.o.'s gives different monomial 
basis of the Kuranishi space: 

> TyurinaBasis (F) ; 

> TyurinaBasis(F,plex_min(x,y,z,t) ) ; 

Remark 5.5. For what concerns efficiency of l.m.o.'s in Milnor and Tyurina it turns 
out that sometimes plexjnin is more efficient than tdegjnin, as observed in the 
last Section [5] when proving Theorems 16.101 and 16.111 But we do not know if this 
is a general fact, then we keep tdegjnin as the default l.m.o. both in Milnor and 
Tyurina, for coherence with the default choice of tdeg for their global counterparts. 

5.3.2. Variables. The default choice for the optional input variables as the set of 
those variables appearing in the given polynomial F (indets(F)) has been thought 
to make our routine more user friendly. Anyway this choice may hide some im- 
portant subtleties, as already pointed out in Remark 15.41 in the case variables 
has been chosen as a greater set of variables w.r.t. indets(F). Here we want to 
underline a significant potentiality of our routine when variables is chosen to be 
a strictly smaller subset of indets(F). 
Let us set F — x^ + x"*" + xy^. Then we get: 

> F :=x"3+y"4+x*y"2: 

> Milnor (F); 

[{6 - 4 y4, 3 + y2, 4 y3 + 2 xy} , [y^, xy, x^] , [x^ , x, y, 1] , 4] 

> Tyurina(F) ; 

[{x^ + y^ + a;y^ 3 + y^, Ay^ + 2xy,2x^ - y^} , [y^ xy, a;y^ x^], [x\x, y, 1], 4] 



Then ^ {x^,x,y,l)c and 

(21) Ft:^F + tx^ ^x^ +y'^ + xy^ + tx^ 
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is a non-trivial 1-parametcr small deformation of F such that, for any fixed t G 
C, Ft has a critical point in G which is also a singular point of the plane 
curve F^^{0). We are interested in studying Milnor and Tyurina numbers of this 
singularity for any i g C . This can be performed by a careful use of the variables 
input. Let us first of all observe that if no optional input are added then we get 

> Ft := F+t*x~2; 

Ft := + y'^ + xy^ + tx^ 

> Milnor (Ft); 

Error, (in Milnor) the given critical point is not isolated 

In fact, by default Milnor considers Ft as a polynomial map defined over C^(x, y, t). 
By forcing Milnor to work with variables {x, y} only, then Ft is considered as a 
polynomial map defined over with coefficient ring C[t], i.e. Ft G (C[i]) [x, y], 
giving: 

> Milnor (Ft, {x, y}) 

[{Zx^ + y^ + 2tx,{\ - At)y^ + iyx\Ay^ + 2xy] ,[x,y\xyUy^ ,yM?,] 

> Tyurina(Ft, {x, y}) 

[{3 + 2/^ + 2 tx, x^ +y^ + xy'^ + tx'^,{l ~ 4t)y^ + 3yx^,Ay^ + 2xy} , 
[x,y^,x'^,xy], [y'^,y, 1],3] 

This means that, for generic^ t, TFt(0) = 3 = ^PtiO)- Moreover by looking at the 
leading coefficients of the given standard basis of Jp we get all the relations defining 
non-generic values for t, precisely: 

> MB := MilnorGroebnerBasis(Ft, {x, y}) 

MB := {3x^ + y'^ + 2tx,{l-4:t)y^ + 3yx^,4:y^ + 2xy} 

> for i from 1 to nops(MB) do 

> LeadingTerm(MB [i] ,tdeg_min(x,y) ) end do; 

2t, X 
l-4t, y3 
2, xy 

For f = we do not have any deformation of F, giving Tpg{Q) = 4 — ij^pg. But the 
further relation 1 — At — gives: 

> t := 1/4: Milnor (Ft, {x, y}) 

[{3x^ + y^ + 1/2 X, 36 y^'x^ + 12y^4y^ + 2 xy} , [x, y^xy] , [y^ y^ y^y, 1], 5] 

> Tyurina(Ft, {x, y}) 

f 3 1 27 9 

^x' + y^ + xy^ + 1/4 x^ - y'x' + -y^ - —x' - — x^y\ Ay^ + 2 xy, 

36 2/V + 12 y\ 3x' + y'' + 1/2 x] , [x, y\x\ y\ xy], [y\ y\ y\ y, 1], 5] 
Therefore 

r 5 fori = 1/4, 
tpM^P^fX^)^ < 4 fori = 0, 
[ 3 otherwise . 

is treated as a variable without any evaluation. 
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In particular Proposition 13.91 implies that, for any t, E Spec 0^4,0 is a w.h. 
singularity, in spite of the fact that Ft is never a w.h. polynomial. 

5.4. An efficiency remark: global to local subroutines. After numerous ap- 
plications of the previous routines the reader will convince himself that the SB 
procedure turns out to be less efficient than the Buchberger algorithm as imple- 
mented in MAPLE. As a consequence our routines can be arranged in the following 
decreasing sequence of efficiency: 

PolyMilnor > PolyTyurina > Milnor > Tyurina . 

A slight improvement of Milnor and Tyurina efficiency can be obtained by applying 
the SB algorithm to a Grobner basis of Jf and // rather than to their original 
generators. What is obtained is a sort of "pasting" of global and local routines, 
precisely: 

• MILNOR which is a procedure computing Milnor numbers of both a poly- 
nomial / and of a critical point of /: 

Input : F G C[x] , Basis in the Groebner package , SB , 

Optional: variables, by default assigned by indets(F) 
Optional: a couple [l.m.o., g.m.o.], by default assigned by 
[tdeg_min(variables) , tdeg(variables)] 
Output : a Grobner basis G oi Jp C (C[x \ variables]) [variables], Lqi[G), 

M\Lgi{Jf) , M^), 
a standard basis B oi Jp 'Z (C[x \ variables]) [variables], Llo{B), 

M\Llo{Jf) , Mf(0); 

• TYURINA which is a the procedure computing the Tyurina numbers of both 
a polynomial / and of a critical point of /: 

Input : F G C[x] , Basis in the Groebner package , SB , 

Optional: variables, by default assigned by indets(F) 
Optional: a couple [l.m.o., g.m.o.], by default assigned by 
[tdegjnin (variables) , tdeg(variables)] 
Output : a Grobner basis G of Ji? C (C[x \ variables]) [variables], Lgi{G), 
M\Lgi{If) , r(F), 
a standard basis B oi Ip C (C[x \ variables]) [variables], Lpo{B), 
M\Llo{If) , tf{Q); 

where L^o and Lqi mean leading monomials w.r.t the given local and global m.o., 
respectively. 

5.4.1. The MAPLE details. Let us start with the procedure computing Milnor num- 
bers: 
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> MILNOR := proc (F, variables :: set := indets(F), 

> SMOS :: anything := [tdeg_min(op (variables) ) ,tdeg(op(variables))] ) 

> U := SMDS[1] ; V := SMOS [2] ; 

> if type(U, ShortMonomialDrder) = false then error 

> "invalid input: the first ShortMonomialDrder is not well defined" 

> else if localorglobal(U, variables) <> Lo then error 

> "invalid input: the first ShortMonomialDrder should be LDCAL" 

> else if type(V, ShortMonomialDrder) = false then error 

> "invalid input: the second ShortMonomialDrder is not well defined" 

> else if localorglobaKV, variables) <> Gl then error 

> "invalid input: the second ShortMonomialDrder should be GLDBAL" 



> 



> else r := nops (variables) ; 

> J:= [seq(diff(F, variables [i] ) , i = 1 .. r)] ; 

> J := Basis(J, V) ; 

> IniJ := [seq(LeadingMonomial ( J [i] , V), i = 1 .. nops (J))]; 

> massimo:=r*max(seq(degree(IniJ[i] , variables) ,i = 1 . .nops (IniJ) )) ; 
if IsZeroDimensional(<(op(IniJ))>,{op(variables)}) = false then 

error 

> "the given critical point is not isolated" 

> else 

> LUU := [op(subs(vq= 1, convert (map (expand, 

> series (1/ (product (l-variables[k]*vq, k =1 . . r)), 

> vq, massimo+1)), polynom)))]; 

> L := sort(LUU, proc (tl,t2) options operator, arrow; 

> TestOrder(tl, t2, V) end proc) ; 

> N : = □; 

> for j to nops(L) do up := 1; 

> for k to nops (IniJ) do 

> if divide(L[j], IniJ[k]) then up := 

> end if end do; 

> if up = 1 then N:= [op(N), L[j]] 

> end if end do; 

> G := SB(J, variables, U) ; 

> Ini := [seq(LeadingMonomial (G [i] , U) , i = 1 .. nops(G))]; 

> massimo:=r*max(seq(degree(Ini[i] .variables) ,i = 1 . .nops(Ini) ) ) ; 

> LUU := [op(subs(vq = 1, convert (map (expand, 

> series (1/ (product (1-variables [h] *vq, h = 1 .. r)), vq, 

> massimo+1)), polynom)))]; 

> L := sort(LUU, proc (tl, t2) options operator, arrow; 

> TestDrder(tl, t2, U) end proc) ; 

> M := []; 

> for j to nops(L) do up := 1; 

> for k to nops (Ini) do 

> if divide (L[j], Ini [k] ) then up := 

> end if end do ; 

> if up = 1 then M := [op(M), L[j]] 

> end if end do ; 

> [J, IniJ, N, nops(N), G, Ini, M, nops(M)] 

> end if end if end if end if end if end proc: 

The associated sub-procedures: 

> PolyMILNDRGroebnerBasis := proc (F .variables :: set : =indets (F) , 

> SMDS : : anything: = [tdeg_min (op (variables) ) , tdeg (op (variables) )] ) 

> MILNDR(F, variables, SMOS) [1] end proc: 
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> PolyMILNORLT := proc (F, variables: : set: = indets(F), 

> SMOS: :anything:=[tdeg_miii(op(variables)) ,tdeg(op(variables) )] ) 

> MILNORCF, variables, SMOS) [2] end proc: 

> PolyMILNORBasis := proc (F,variables : : set := indets(F), 

> SMOS: :anything:=[tdeg_min(op(variables)) ,tdeg(op(variables) )] ) 

> MILNORCF, variables, SMOS) [3] end proc: 

> PolyMILNORNumber :=proc (F, variables :: set : = indets(F), 

> SMOS: :anything:=[tdeg_min(op(variables)) ,tdeg(op(variables) )] ) 

> MILNORCF, variables, SMOS) [4] end proc: 

> MILNORGroebnerBasis := proc (F, variables :: set := indetsCF), 

> SMOS: :aiiything:=[tdeg_minCopCvariables)) .tdegCopCvariables) )] ) 

> MILNORCF, variables, SMOS) [5] end proc: 

> MILNORLT := proc CF, variables :: set := indets(F), 

> SMOS: :aiiything:=[tdeg_minCopCvariables)) , tdegCopCvariables) )] ) 

> MILNORCF, variables, SMOS) [6] end proc: 

> MILNORBasis := proc (F, variables :: set :=indets(F), 

> SMOS: :aiiything:=[tdeg_minCopCvariables)) , tdegCopCvariables) )] ) 

> MILNORCF, variables, SMOS) [7] end proc: 

> MILNDRNumber : =proc (F, variables :: set :=indetsCF), 

> SMOS: :aiiything: = [tdeg_ininCopCvariables)) , tdegCopCvariables) )] ) 

> MILNORCF, variables, SMOS) [8] end proc: 

Then the routine computing Tyurina numbers: 

> TYURINA := proc CF, variables :: set := indetsCF), 

> SMOS :: anything := [tdeg_minCopCvariables)) , tdegCopCvariables) )] ) 

> U := SM0S[1]; V := SMOS [2] ; 

> if typeCU, ShortMonomialOrder) = false then error 

> "invalid input: the first ShortMonomialOrder is not well defined" 

> else if localorglobal CU, variables) <> Lo then error 

> "invalid input: the first ShortMonomialOrder should be LOCAL" 

> else if type CV, ShortMonomialOrder) = false then error 

> "invalid input: the second ShortMonomialOrder is not well defined" 

> else if localorglobal CV, variables) <> Gl then error 

> "invalid input: the second ShortMonomialOrder should be GLOBAL" 

> else r : =nops Cvariables) ; 

> J := [F,seqCdiff CF, variables [i] ) , i = 1 .. r)] ; 

> J := BasisCJ, V) ; 

> IniJ := [seqCLeadingMonomialCJ[i] , V), i = 1 .. nopsCJ))]; 

> massimo:=r*meixCseqCdegreeClniJ[i] .variables) ,i = 1 . .nopsClniJ) ) ) ; 

> if IsZeroDimensionalC<CopClniJ))>,{opCvariables)})= false then error 

> "the given singular point is not isolated" 

> else LUU := [opCsubsCvq = 1, convert CmapCexpand, 

> series Cl/CproductCl-variables[k]*vq, k = 1 .. r)), 

> vq, massimo+D), polynom)))]; 

> L := sortCLUU, proc Ctl, t2) options operator, arrow; 

> TestOrderCtl, t2, V) end proc) ; 

> N := []; 

> for j to nopsCL) do up := 1; 

> for k to nopsClniJ) do 

> if divide CL[j], IniJ[k]) then up := 

> end if end do ; 

> if up = 1 then N := [opCN),L[j]] 

> end if end do; 
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> G := SB(J, variables, U) ; 

> Ini : = [seq(LeadingMoiiomial(G [i] , U) , i = 1 .. nops(G))]; 

> massimo :=r*max(seq(degree (Ini [i] .variables) , i = 1 . .nops (Ini) ) ) ; 

> LUU := [op (subs (vq = 1, convert (map (expand, 

> series (1/ (product ( 1-variables [h] *vq, h = 1 .. r)), 

> vq, massimo+D), polynom)))]; 

> L := sort(LUU, proc (tl, t2) options operator, arrow; 

> TestOrder(tl, t2, U) end proc); 

> M := [] ; 

> for j to nops(L) do up := 1; 

> for k to nops (Ini) do 

> if divide (L[j], Ini [k] ) then up := 

> end if end do ; 

> if up = 1 then M := [op(M) , L[j]] 

> end if end do ; 

> [J, Ini J, N, nops(N), G, Ini, M, nops(M)] 

> end if end if end if end if end if end proc : 

The associated sub-procedures: 

> PolyTYURINAGroebnerBasis := proc (F, variables :: set : =indets (F) , 

> SMOS: : anything :=[tdeg_min (op (variables)) , tdeg (op (variables) )] ) 

> TYURINA (F, variables, SMOS) [1] end proc: 

> PolyTYURINALT := proc (F, variables :: set : = indets(F), 

> SMOS: : anything : = [tdeg_min (op (variables)) , tdeg (op (variables) )] ) 

> TYURINA (F, variables, SMOS) [2] end proc: 

> PolyTYURINABasis := proc (F, variables :: set := indets(F), 

> SMOS : : anything : = [tdeg_min (op (variables) ) , tdeg (op (variables) )] ) 

> TYURINA (F, variables, SMOS) [3] end proc: 

> PolyTYURINANumber:=proc (F, variables :: set := indets(F), 

> SMOS: : anything :=[tdeg_min (op (variables)) , tdeg (op (variables) )] ) 

> TYURINA (F, variables, SMOS) [4] end proc: 

> TYURINAGroebnerBasis := proc(F, variables :: set := indets(F), 

> SMOS: : anything : = [tdeg_min (op (variables)) , tdeg (op (variables) )] ) 

> TYURINA (F, variables, SMOS) [5] end proc: 

> TYURINALT := proc (F, variables :: set :=indets(F), 

> SMOS: : anything : = [tdeg_min (op (variables)) , tdeg (op (variables) )] ) 

> TYURINA (F, variables, SMOS) [6] end proc: 

> TYURINABasis := proc (F, variables :: set :=indets(F), 

> SMOS: : anything :=[tdeg_min (op (variables)) , tdeg (op (variables) )] ) 

> TYURINA (F, variables, SMOS) [7] end proc: 

> TYURINANumber : =proc (F, variables :: set :=indets(F), 

> SMOS: : anything :=[tdeg_min (op (variables)) , tdeg (op (variables) )] ) 

> TYURINAnor(F, variables, SMOS) [8] end proc: 

5.4.2. An example of application. Let us consider the same polynomial F(x,y) — 
x^+y'^+xy'^ given in l5.3.2l Procedures MILNOR and TYURINA give all the information 
we could get by applying all the introduced routines, precisely: 

> MILNOR(F) 

[[3x'^ + y^,2y^ + xy], [x'^,y^], [l,y,x,y'^,xy,xy'^],6, 

{-2y* + 3x\2y'' + xy,3x^ + y^}, [y^, xy, x^] , [x" , x, y, 1], 4] 

> TYURINA (F) 
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[[xy, 3 a:^ + ^ y\ [xy^ x^,y% [1, y, x, y\^, 

{xy, 3 a;3, 3 + y3| ^ [^2^ ^3^3^ ^^j^ [^2 4] 

In particular it turns out that F admits some further critical point which is not a 
singular point of F^^(O). By 

> solve({diff (F,x) ,diff (F,y)}, [x,y]) ; 

[[x = 0,y = 0], = 0,t/ = 0], [a; = -1/2 {RootOf (3.^^ + 1, label = .Ll)f , 
y ^ 1/2 RootOf {3. + I, label = _Ll)l [x^O,y^ 0]] 

it follows that there are precisely two further critical points of F having Milnor 
number 1 and Tyurina number 0. Let us now type: 

> TyB := TyurinaBasis (F) 

TyB [x'^,x,y,l] 

> T := nops(TyB) : 

> F[Lambda] := F+sum (lambda [i] *TyB [T-i] , i= .. T-1) ; 

-Fa x^ +y'^ + xy"^ + \o + Xiy + A2X + Asa;^ 

> TYURINA (F [Lambda] , {x, y}) ; 

[[1],[1],[],0,[1],[1],[],0] 

> Tyurina(F [Lambda] , {x, y}) ; 
Warning, computation interrupted 

We had to interrupt the calculation of Tyurina since it wasn't able to produce any 
output after considerable time, on the contrary of TYURINA which quickly produced 
the given (trivial) output. 

Remark 5.6. What observed in 15.21 and 15.31 about optional inputs for Milnor and 
Tyurina, apphes analogously for MILNOR and TYURINA. 

6. Application: adjacencies of Arnol'd simple singularities 

Let us consider the classes of Arnol'd simple singularities An, Dn, Eq, Et, Eg. 
Recall that a class of singularities B is said to be adjacent to a class of singularities 
A (notation A ^ B) ii any singularity in B can be deformed to a singularity in A by 
an arbitrarily small deformation (see ^ §L2.7, fS] §15.0 and TO] §7.C). Adjacency 
turns out to be a partial order relation on the set of singularities' equivalence classes. 
In the following we will employ the optional input on variables, as observed in l5.3.21 
to show explicit equations of algebraic stratifications of Kuranishi spaces verifying 
the following Arnol'd adjacency diagram 
(22) 

Ai ^ A2 ^3 ^4 ^ A^ ^6 ^ A-, ^ Ar,-l ■ ■ ■ 




Eq Ej ^ Eg 
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(see [3], [5] and in particular j4j §1.2.7). Such a stratification gives a geometric 
interpretation, by means of inclusions of algebraic subsets, of the partial order 
relation induced by adjacency. 

Let us first of all observe that the Kuranishi space of an Arnol'd simple m- 
fold singularity of type A„, D„, Eq, E-^, E^ do not depend on its dimension m, since 
partials of quadratic terms are linear generators of // eliminating the associated 
variable from M \ L{If). Therefore the study of diagram ([22|) can be reduced to 
the case of Arnol'd simple curve singularities whose local equations are given in 
PT)) : this is actually guaranteed by the following Morse Splitting Lemma [121 

In the sequel we will need the following notation and results, essentially due to 
V.L Arnol'd 5J. We refer the interested reader to books [4], [5], [16j and [12] for 
details and proofs. 

Definition 6.1 (Co-rank of a critical point). The co-rank of a critical point p of a 
holomorphic function / defined over an open subset of C" is the number 

crk/(p) :— n ~ rk (Hess f{p)) 

where Hess / (p) is the Hessian matrix of / in p (for shortness the function / will be 
omitted when clear from the context). In particular if crk(p) — then p is called a 
non-degenerate, or Morse, critical point. 

Lemma 6.2 (Morse Splitting Lemma, [5| §11.1, [Hj (7.16) and [12] Theorem 
1.2.47). Assume that f G C C{x} and crkj^(O) = n — k. Then f is equiva- 
lent^ to the following germ of singularity 

k 

+ g{xk+i, . ■ ■ ,Xn) 

1=1 

where g G m'^ is uniquely determined (up to equivalence). 

Theorem 6.3 ([12 , Theorems 1.2.46, 1.2.48, 1.2.51, 1.2.53). 

(1) For f G C C{x} the following facts are equivalent: 

• crk(O) = i.e. is a non-degenerate critical point of f, 

• M(0) = l = r(l), 

• G / ^(0) is, up to equivalence, a node i.e. a simple Ai singularity. 

(2) For f G C C{x} the following facts are equivalent: 

• crk(O) < 1 and /i(0) = m, 

• G /~^(0) is equivalent to a simple Am singularity. 

(3) For / G m'^ C C{y, z} the following facts are equivalent: 

• the 3-jet /'■■^•' of f factors into at least two distinct linear factors and 
^(0) = TO > 4, 

• G /^^(O) is equivalent to a simple Dm singularity. 

(4) For / G m'^ C C{y,z} the following facts are equivalent: 

• the 3-jet of f has a unique liner factor (of multiplicity 3) and 
Kf) < 8, 

• G / ^ (0) is equivalent to a simple singularity of type Eq , E^ or Eg, 
and /i(0) = 6, 7 or 8 respectively. 



^In the sense of Definition 13.71 and Remark l3.8l 
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Let US now introduce a non-standard notation, useful to describe a nice geometric 
property of stratifications via algebraic subsets of a simple Arnol'd singularity's 
Kuranishi space, as explained in the following statements. Consider the following 
square of subset inclusions 



(23) 




Then A C B f) C , necessarily. 















B 






.- / 

,y 





D 



Figure 1. The c.i.p. for the inclusions' square (^5)) 



Definition 6.4 (Complete Intersection Property - (c.i.p.)). A square of subset 
inclusions l|23p is said to admit the complete intersection property if 

A^BDC . 

For shortness we will say that (j23p is a c.i.p. square. The geometric meaning of 
c.i.p. in ([23]) is explained by Figure [U while Figure [2] describes geometrically the 
following sequence of two c.i.p. squares 

(24) 




meaning that A = Br\C = Br\Dr\E. Moreover the following inclusions' diagram 
(25) BUFr ^ 
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is called a union of c.i.p. squares if A ^ B H C and E ~ F f] G. A particular 
case, occurring in the following, is when C ^ G : then diagram becomes the 
following one 

(26) B U 




and we will say this diagram to represent a hinged union of c.i.p. squares, whose 

hinge is the inclusion G ^ D. 

At last the following inclusions' diagram 

(27) ■ 




is called a reducible c.i.p. square if AU E = B D G i.e. if 

B^ 



AUE^ ^G 



IS a c.i.p. square. 



6.1. Outline of the following results. Statements and proofs of the following 
Theorems 16.51 , 16.61 , 16.81 , 16.101 and 16.111 have the same structure we are going to 
outline here. Precisely their statements describe set theoretical stratifications by 
algebraic subsets of the Kuranishi space of simple hypersurface singularities 
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An,Dn and En (the latter with 6 < n < 8). Their proofs go on by the fohowing 
steps: 

(1) look for the critical points of a generic small deformation of our initial 
simple singularity, by solving the polynomial system assigned by partial 
derivatives (Jacobian ideal generators): they turn out to be precisely n 
points (with 6 < n < 8 in the En case); 

(2) imposing one of the previous critical points to be actually a singular point 
means defining a hypersurface C C : we have then n of such hypersur- 
faces, one for each critical point; 

(3) any of those hypersurfaces is then stratified by nested algebraic subsets 
defined by a progressive vanishing of leading coefficients in Jacobian ideals' 
standard bases of more and more specialized deformations. 

The last step (3) is obtained by a systematic use of routines Milnor, Tyurina, 
MILNOR and TYURINA previously described, running with suitable l.m.o.'s defined 
on a strict subset of variables appearing in the polynomial equation of a generic 
small deformation, as explained in 15.3.21 Such a procedure allows to explicitly 
write down relations on deformation parameters and then equations of the algebraic 
stratifications. 

Caveat Lector. The large use of MAPLE routines in step (3) makes difficult to fol- 
low and understand algebraic arguments without the support of MAPLE 11 or 12. 
Hence the reader is warmly advised of repeating by himself MAPLE commands as 
described in the following. Moreover since the following results are here reported as 
a significant application of the previously presented subroutines, their role, inputs 
and outputs will be explained and listed in detail; on the contrary the use of stan- 
dard MAPLE procedures, like e.g. eliminate or Eliminationldeal, will be left 
to the reader who may helpfully consult the excellent on-line MAPLE help system. 

6.2. Simple singularities of An type. 

Theorem 6.5. Let he the Kuranishi space of a simple N -dimensional singular 
point G /"-^(O) with 

N 

f{xi,...,XN+i)^^x1 + (forn>l). 

i=l 

The subset ofT^ parameterizing small deformations o/O G /^^(O) to a simple node 
(i.e. an Ai singularity) is the union of n hypersurfaces. Moreover, calling C any 
of those hypersurfaces, there exists a stratification of nested algebraic subsets 

(28) £^ 3V2-« ^•••^ ^V^'^ 3...^ ^yn 

verifying the Arnol'd's adjacency diagram 

(29) Ai^ A2^ ^ Am^ ^ An 

where 

• C is the hypersurface of defined by equation \31]) . keeping in mind \30jl. 

• V™ :~ f)'k=2 ^fe where Vk are hypersurfaces of C defined by the vanishing 
of variables introduced by I133\) . 
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Proof. By the Morse Splitting Lemma [6.21 we can reduce to the case N = 1 with 
f{y, z) = y'^ + 2:"+^ for n > 1. Then Proposition 12.31 gives 

ri-C[2;,z]/(y,z")-(l,z,...,z"-i)c 

and, given A = (Aq, . . . , A„_i) £ T^, the associated deformation of Uq — Spec(0/;o) 
is 

n-1 

Ua = {Uiv, z) := f{y, z) + ^ Kz' = 0} . 

i=0 

A solution of the jacobian system of partial derivatives is then given by ph — (0, za) 
where za is a zero of the following polynomial 

n-1 

(30) (n + l)z" + ^ iXiz'-^ e C[A][z] . 

i=l 

This means that /a admits precisely n critical points. Observe that imposing 
Pa S Uh^ which is asking for one of the previous critical points to be actually a 
singular point of Ua, defines the following hypersurface in 

n-1 

(31) PA e C/a ^ AG/::- {zl+^ + ^ Kz\ = 0} C . 

1=0 

Notice that we get precisely n such hypersurfaces, one for each critical point of /a. 
• C is a hypersurface of the Kuranishi space parameterizing small deforma- 
tions of Uq admitting a singular point of type at least Ai in the origin. 

After translating z i-^ z + za, we get 
/a(2;,z + za) = /(2;,z) + (^^l^' 

(32) + (^in+l)zl + J2^Kzl-'^z 



k=2 \ ^ ' i=k ^ ' / 

+ (n + 1)ZA z" . 

Then by ([5T|l and ([50]) the origin (i.e. pA G Ua) is at least a node: in fact by 
running Milnor and Tyurina e.g. when n = 7, we get (set L := za): 

> F:=y~2 + z~8; 

F := + ^8 

> TyB := TyurinaBasis (F) 

TyB := [z^, z^, z^, z^, z^, z, 1] 

> T := iiops(TyB) : 

> F[Lambda] := F+sum (lambda [i] *TyB [T-i] , i = .. T-1) 

Fa := + z* + Ao + Aiz + Aaz^ + Aaz^ + A4Z^ + Agz^ + Agz*^ 

> solve ({diff(F [Lambda] , y) , diff (F [Lambda] , z)}, [y, z]) 

[[y = 0, z = RootOf (8 .Z^ + Ai + 2 Az-Z + 3 Ag.^^ + 4 \^_Z^ + 5 M.Z^ + 6 \-Z^)\\ 
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Notice that the polynomial in RootOf is precisely ([30|) for n = 7. 

> z := Z+L: 

> collect (F [Lambda] , [y, Z] , 'distributed') 

2/2 + + 8 LZ"^ + (Ag + 28 L^) + (56 + A5 + 6 AgL) Z^+ 

(70 L* + 5 X5L + 15 AgL^ + A4) Z'^ + (lO X^L^ + A3 + 56 + 4 A4L + 20 AgL^) Z^ 

+ (10 AgL^ + 3 A3L + 6 A4L2 + 15 XqL^ + A2 + 28 L^) Z^+ 

(4 A4L''' + 8 + 5 A5L* + 6 AgL^ + 2 A2L + 3 X^L^ + X^) Z 

+A2L2 + AgL^ + AgL^ + L** + Ao + AaL^ + A4L'i + XiL 

Compare ([32]) for n=7 with the previous output expression. 

> SD := [seq(Z~i, i = 2 . . 7)] 

> for j from 2 to 7 do 

> FL[j] :=y~2+Z~8+sum(v[i]*SD[i-l] , i = j .. 7) end do 

FL2 := + Z^ + V2Z^ + vsZ^ + ViZ* + V5Z^ + vqZ^ + v-,Z'^ 
FL^ y2 _^ + vj,Z'^ + v^Z^ + v^Z'^ + t;6ZS + wyZ^ 
FU ■■= + Z^ + v^Z^ + v^Z^ + veZ^ + vjZ"^ 
FL5 y^ + Z'^ + v^Z^ + vqZ^ + vtZ^ 
FLe := + Z^ + Vf,Z^ + vjZ'^ 
FLj y^ + Z^ + v-jZ'^ 

> for j from 2 to 7 do Milnor(FL[9-j] ,{y>Z}) end do 

[[2 y,8Z' + 7vrZ% [y, Z% [Z^ Z\, Z\, Z\ Z, 1], 6] 
[[2y, 8Z^ + 6 veZ^ + 7vjZ% [y, Z% [Z\ Z\ Z^ , Z, 1], 5] 
[[2 2/, 8 + 5 1^5^" + 6 i-gZ^ + 7 1-7^6] , [y, Z^] , [Z^ ,Z\Z,1], 4] 
[[2 y, 8 + 4 1^4^^ + 5 t^sZ^ + 6 t^gZ^ + 7 1^7^^] , [y, Z^] , [Z^, Z, 1] , 3] 
[[2 y, 8 Z^ + 3 faZ^ + 4 v^Z^ + 5 fgZ* + 6 wgZ^ + 7i;7Z6], [y, Z^], [Z, 1], 2] 

[[2 y, 8 Z^ + 2 W2Z + 3 v^Z"^ + Av^Z^ + bv^,Z^ + QveZ^ + 7 vrZ^] , [y, Z] , [1] , 1] 

> for j from 2 to 7 do Tyurina(FL [9-j] , {y , Z}) end do 

[[z/ + Z8 + t,7Z^ 2 y, 8 Z^ + 7t;7Z% [y\ y, Z% [Z^ Z^ Z\ Z\ Z, 1], 6] 

[[y2 + Z^ + vgZ*^ + i;7Z^ 2 y, 8 Z^ + 6 fgZ^ + 7vtZ^], [y^, y, Z^], [Z^ Z^ Z^, Z, 1], 5] 

[[y2 + Z« + i^sZ^ + vgZ'^ + i;7Z^ 2 y, 8 Z^ + 5 v^Z^ + 6 t-gZ^ + 7 t;7Z6], [y^, y, Z% 
[Z^Z^Z, 1],4] 

[[y2 + Z*^ + W4Z'' + wgZ^ + t;gZ^ + W7Z^ 2 y, 8 Z^ + 4 v^Z^ + 5 ugZ"* + 6 iJgZ^ + 7 i;7Z''] , 
[y\y,Z%[Z\Z., 1],3] 

[[y2 + Z* + fgZ^ + i;4Z^ + wgZ-^ + i^gZ^ + i;7Z^ 2 y, 8 Z^ + 3 vaZ^ + 4 i;4Z^ + 5 i;5Z*+ 
6i;gZ5 + 7t.7Z6],[y2,y,z2],[Z, 1],2] 

Warning, computation interrupted 

> for j from 2 to 7 do TYURlNA(FL[9-j] ,{y, Z}) end do 

[[y, Z\ [y, Z\ [1, Z, Z2, Z^ Z*, Z^], 6, [y, Z\ [y, Z% [Z^ Z^ Z^, Z\ Z, 1], 6] 
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[[y, Z% [y, Z% [1, Z, Z\ Z\ Z%b, [y, Z% [y, Z% [Z\ Z\ Z^, Z, 1], 5] 
[[y, Z% [y, Z% [1, Z, Z2, Z\\, [y, Z^], [y, Z^], [Z^, Z^, Z, 1],4] 
[[y, Z% [y, Z3], [1, Z, Z2], 3, [y, Z^], [y, Z^], [Z^, Z, 1], 3] 
[[y, Z2], [y, Z2], [1, Z], 2, [y, Z\ [y, Z^], [Z, 1], 2] 
[[Z,y],[Z,y],[l],l,[Z,y],[Z,y],[l],l] 

We reported here both the output obtained with Tyurina and TYURINA to give a 
further account of differences between the two procedures: after some time, we had 
to stop Tyurina during the calculation of the last output, while TYURINA was able 
to quickly conclude the calculation; in fact the standard bases of IpLj obtained 
by the latter procedure are noticeably simpler than those obtained by the former 
procedure. In the following we will employ TYURINA every time Tyurina will be 
inefficient. 

Fist of all let us observe that, for any j = 2, . . . , 7, r(0) = /i(0) meaning that the 
origin deforms always as a w.h. singularity, by Proposition 13.91 Moreover crk(O) < 
1, since the rank of the Hessian matrix is always at least 1 for the contribution 
of y^. Then the origin deforms always as a simple singularity, where fi is its 
Milnor number by Theorem 16.31^ 2). In particular the standard basis of Jfl2 is 
given by {2y, 8Z^ + 2v2Z + iv^Z"^ + A^v^Z^ + bv^Z^ + GweZ^ + IvjZ^} whose leading 
coefRcient w.r.t. the default l.m.o. is 2v2- This means that 

• V2 — Q is the equation of the codimension 1 subvariety V2 C £ parameter- 
izing small deformation of Uq admitting a singularity of type at least A2 in 
the origin. 

Analogously the standard basis of JfLs is {2y,8Z'' + 3w3Z^ + Av^Z^ + SusZ^ + 
GvqZ^ + 7vtZ^} whose leading coefRcient is 3w3 meaning that 

• W3 = is the equation of the subvariety V3 C £ C such that V2 H V3 CZ C 
is the codimension 2 subvariety parameterizing small deformation of Uq 
admitting a singularity of type at least A3 in the origin, 

and so on: in general, for n > 3, setting 

(33) Vk := ("^^)^r'"' + EQ)^»4"' ' fc = 2,...,n-l 

Vn ■■= ZA 

and defining codimension 1 subvarieties Vk ■= {vk — 0} of C, then 

• PA G Ua turns out to be a Am {2 < m < n) simple hypersurface singularity 
if and only if A is the generic element of the codimension m subvariety 

This gives precisely the nested stratification ([28]) verifying the top row (f29|) in 
diagram (|^ of Arnol'd's adjacencies. □ 
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6.3. Simple singularities of Z3„ type. 

Theorem 6.6. Let be the Kuranishi space of a simple N -dimensional singular 
point e /"^(O) with 

f{xi,. . . , xjv+i) =^xf + x% XN+i + (for n > A) 

1=1 

The subset ofT^ parameterizing small deformations o/O £ /^^(O) to a simple node 
is the union of n hyper surf aces. Moreover, calling C any of those hyper surf aces, 
there exists a stratification of nested algebraic subsets giving rise to the following 
sequence of inclusions and c.i.p. squares 

(34) C ■< ^ W2 ■< ^ Vl U W| ■< ^- • • W^" • • • ■< ? W^'^ 

Vi ^ 5- • ■ V^'-^ ■ ■ ■ ^ ^ V^'-2 = {0} 

verifying the Arnol'd's adjacency diagram 

(35) Ai A2 ^ A3 ^ ' A«-i 

D4 ^ ■ • • Dm • • • ^ Dn 

where 

• C is the hypersurface ofT^ defined by equation \38\) . keeping in mind ^37^ , 

• V™ := PlfcLo and W™ 01—2 where Vk , Wfc are hypersurfaces of C 
defined by equations J^Tp , keeping in mind definitions \4(>^ - 

Remark 6.7. The fact that every square in diagram p4p is c.i.p. means that 

(36) V^'-^ = Vo""^ n Wo™ for any 4 < m < n - 1 . 

In particular Figure 2 represents geometricaUy the stratification of Vq U Wf C 
in the case of a singularity, by setting 

F ^VliJWl , E ^Vl , D , C = Vl , B = Wl , A = = {0} . 

Proof. By the Morse Splitting Lemma |6.2[ our problem can be reduced to the case 
= 1 with fiy, z) = y'^z + z""-'^ for n > 4. Let us start by typing 

> for n from 4 to 10 do FD [n] : =y"2*z+z" (n-1) end do 

FDi y'^z + z^ 
FD5 := y^z + z^ 
FDq y^z + z^ 
FD7 := y^z + z^ 
FDs y^z + zJ 
FDg := y^z + z^ 
FDw ■■= v'z + 

> for n from 4 to 10 do TB [n] : =TyurinaBasis(FD [n] ) end do 
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T54 := [z\z,y,l] 
TB^ := [z\z\z,y,l] 
TBe := [z\z^z^,z,y,l] 
TBj [z^z\z\z\z,y,l] 

TBs [z^z^z^z^z^z,y,l] 
TBg := [z^z^z^z^z^z^z,y,l] 

TOio := [z'',z'',z'',z'',z\z^,z^,z,y,l] 

In general, for n > 4, the Kuranishi space will be then given by 

ri = (l,y,z,...,z"-2)^ . 

Given A = (Aq, A, Ai, . . . , A„_2) £ T^, the associated small deformation of Uq is 

n-2 

t/A = {/A(y, z) := f{y, z) + \y + J2 = 0} ■ 

1=0 

A solution of the jacobian system of partials is then given by a solution p\ — (y\ , za) 
of the following polynomial system in C[A][2/, z] 

(■^7) / 2yz + X^0 

^ ' 1 (n-l)z«'2^y2+E:r^A.z-i = 

giving precisely n critical points for /a. Then p\, one of them, is actually a singular 
point of Ua if and only if 

n-2 

(38) paEUa ^ A e £ := {yizA + z;^-i + A2/A + ^ A,zX - 0} C 

i=0 

where, as above, C is one of the n hypersurfaces of parameterizing small de- 
formations of e C/q to nodes. After translating y ^ y + yA, z ^ z + za, we 
get 

fA{y + yA,z + za) ^ f + ^ylzA + z^-^ + XyA + '^^X^zlj 

(39) + (2yA2A + A) y 

+ (^{n-l)zl-'+yl + J2'X.zl''^z 
+ 2yA yz + Za t/ 



k=2 



H-'-A 



Z 



Then by l|55|) and ([57)1 the origin (i.e. pA G C^a) is at least a node. We want at first 
recover, by means of a suitable algebraic stratification of the Kuranishi space T^, 
the upper row of the adjacency diagram ((22|) . At this purpose consider the case 
n = 6: 

> T := nops(TB[6] ) ; 
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> F [Lambda] := FD [6] +lainbda [0] +lambda*y+ 

> sum(lambda[i-l]*TB[6] [T-i] , i = 2 .. T-1) ; 

FA := y"^ z + + \o + \ y + \iz + \2Z^ + X-^z? + X^z"^ 

Compare FA with /a above. 

> solve (diff (F [Lambda] , y) , diff (F [Lambda] , z) , [y, z] ) ; 

A 

' RootOf (A2 + 20 .Z^ + 4 Ai.Z^ + 8 X2-Z^ + 12 Ag-^^ + 16 X^.Z^) ' 
z = RootOf (A^ + 20 .Z*^ + 4 Ai.Z^ + 8 A2-Z^ + 12 Xs.Z^ + 16 Xi_Z^)]] 

Compare these solutions with (t/a, za) in p7p . Set K := yj^ and L := z\ then 

> z := Z+L : y := Y+K : 

> F[Lambda] := collect (F [Lambda] , [Y, Z] , 'distributed'); 

FA := LY^ + ZY^ + 2 i^FZ + (A + 2 KL) Y + Z^ + {5 L + X4) Z^+ 
(10 + X3 + A A4L) Z'"^ + (6 A4F^ + A2 + 3 A3L + 10 L^) Z^+ 
(4 A4F''' + 5 L V if^ + Ai + 3 AaL^ + 2 A2L) Z+ 
K^L + Xa + XK + XiL* + + AaL^ + AiF + AgF^ 

Compare FA in the latter output with (|39p . As already done for singularities in 
let us call Vk the coefficients of singular deformations FA of FDq. Precisely, 
let us type: 

> SD := [Y*Z, Y-2, seqCZ'i, i = 2 .. 4)]; 

SD 

> s := nops(SD) : 

> FL := Y~2*Z+Z~5+sum(v[i]*SD[i+l] , i = .. s-1) ; 

FL := Y^Z + + vqYZ + viY"^ + V2Z^ + v^Z^ + v^Z'^ 

> MGB := MilnorGroebnerBasis(FL, {Y, Z}) ; 

MGB := {2YZ + vaZ + 2viY,Y^ + 5Z^ + vqY + 2V2Z + 3v3Z^ + 4:V4Z^, 
4:V2YZ -ivQVsZ^ - AvQViZ^ -hvoZ^ - vqY^ + {-vq^ + 4i;2Ui) Y} 

> for i to nops(MGB) do LeadingTerm(MGB[i] ,tdeg_min(Y,Z))end do; 

vo, Z 
2v2, Z 
—vq^ + 4w2Wi, Y 

The previous output gives the couples {leading coefficient^ leading monomial) of 
the three generators in the standard basis MGB of the jacobian ideal JpL w.r.t. 
the l.m.o. tdeg_min(Y,Z) 0: 

• the possible relations on the coefficients Vk making a Milnor number growing 
up have then to be chosen among the three leading coefficients. 

On the contrary of the An case, since both and V2 multiply the same leading 
monomial Z , they have to be annihilated together to get a Milnor number increas- 
ing, describing a codimension 2 algebraic subset of C. Actually it turns out to be an 



It is defined as the opposite of the reverse lexicographic g.m.o. on variables Y, Z i.e. it is a 
graduated and lexicographic l.m.o. for which Y < Z. 
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algebraic subset of the codimension 1 algebraic subset of L obtained by annihilating 
the third leading coefficient 

(40) W2 := {4t.ii;2 - = 0} 

Notice that this is the same codimension f algebraic subset of £ obtained by im- 
posing the vanishing of the Hessian determinant det(Hess(0)) = 0, in fact 

> with(VectorCalculus) : with (Linear Algebra) : 

> H:=unapply(Hessian(FL, [Y, Z] ) , [Y, Z] ) : 

> print (Hess (0)=H(0, 0) ,det(Hess(0))=Determinant(H(0,0))) ; 

2 v\ vq 

dei(Hess(0)) = -vq^ + Av2Vi 



Hess(O) 



Moreover if at least one of the three coefficients vo,vi,V2 does not vanish then 
crk(O) < 1 and we are considering deformations of e /^^(O) to simple Am singu- 
larities, by Theorem l6.3f 2). Introducing relation ((40|) in the deformation FL means 
to impose that 

vqYZ + viY^ + V2Z^ = {wiY + W2Zf 

where wf = Vi. Then 

> F2:=Y~2*Z+Z~5+(w[l]*Y+w[2]*Z)~2+sum(v[j]*SD[j+l] ,j=3. .s-1) ; 

F2 Y^Z + Z'^ + [wiY + W2Zf + v^Z'^ + v^Z^ 

> print (mu=MilnorNumber(F2,Y,Z) ,tau=TYURINANumber(F2,Y,Z)) ; 

^ = 2, T = 2 



implying, by Theorem 16.3( 2). that yV2 C C parameterizes small deformations of 
£ /^^(O) to a simple A2 singularity or equivalently that £ ^(0) is a simple A2 
singular point for generic A £ W2- As above, consider now the following standard 
basis 

> MGB2 := MilnorGroebnerBasis(F2, Y, Z) ; 

MGB2 := {2YZ + 2 {wiY + W2Z)wi,Y^ + 5Z^ + 2 (wiY + W2Z)w2 + 3v3Z'^+ 
4 ViZ^, 6 wiW2V3Z^Y + (-6 vswi^ - 4 W2^) ZY^ + (-6 wa^i^ - 6 wi^W2^) Y^+ 

-10wi^W2^Z'^ -8wi'^W2'^V4Z^} 

whose leading terms arc listed as follows 

> for i to nops(MGB2) do LeadingTerm(MGB2 [i] , tdeg_min(Y, Z) )end do ; 

2 W1W2, Z 

2^2", z 

—6 1'sWi'* — 6 i(Ji^W2^, Y^ 

Observe that the vanishing of W2, hence V2, does not change the Milnor number 
since one get Y as leading monomial from the first generator. Then, as before, the 
interesting relation is given by the third leading coefficient, precisely: vi(viV3 -I-W2). 
Set 

Vi {wi =0} , W3 := {viV3 + 1^2 = 0} 

and observe that: 

> w[l] := 0; 

> print (mu=MilnorNumber(F2,Y,Z) ,tau=TyurinaNumber(F2,Y,Z)) ; 
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^ ~ 3, T — 3 

On the other hand, by setting W2 — iwiw^ with = Vi, one gets0 

> F3 := Z*Y-2+Z-5+v[l]*(Y+I*w[3]*Z)-2+w[3]~2*Z-3+v[4]*Z-4; 

F3 := ZY^ + +vi{Y + iw-^zf + ^wg^Z^ + v^Z^ 

> print (mu=MilnorNuniber(F3,Y,Z) ,tau=TyurinaNumber(F3,Y,Z)) ; 

^ = 3, T = 3 

Once more Theorem 16.3( 2) gives that 

• G /y^^(O) is a simple A3 singularity for a generic A in 

(41) W2 n (Vi u W3) = (Vo n Vi) u (W2 nWs) cm c c 

where Vk '■= {vk = 0}. Let us go on by considering the first connected component 
in (|4T|) and by applying the same argument as above, precisely 

> v[l] := 0: 

> MGB3:=MilnorGroebnerBasis(F2,{Y,Z}) ; 

MGB3 := {2Y^ + IQZ'^Y + ?>Yv4,Z^X^ + ^2^^ + 'iw2^Z + ?,V3,Z'^ + AviZ^,2YZ) 

> for i to nops(MGB3) do LeadingTerm(MGB3 [i] , tdeg_min(Y, Z) )end do; 

2^«2^ Z 
2, YZ 

2, Y^ 

Therefore the only interesting relation is given by the first leading coefficient, pre- 
cisely = 0: 

> w[2] := 0; 

> print (mu=MilnorNumber(F2,{Y,Z}) ,tau=TyurinaNumber(F2,{Y,Z})) ; 

^ = 4, T = 4 

Since now crk(O) — 2, Theorem 16. 3f 3) gives that: 

• G /y^^(O) is a simple D4 singularity for a generic point A G Vq H Vi n V2. 
Let us now consider the second connected component W2 H W3 in (j41|) . As before 

> MGB3b := MilnorGroebnerBasis(F3,Y,Z) ; 

MGBSb := {2YZ + 2vi{Y + iwaZ) , + 5 + 2 wi (F + iwsZ) W3 + 3 W3^Z^+ 
iv4Z^,10iw3^vi'^Z'^ + {-8iw3ViV4-6iw3^)Y^Z^ + {8 W3'^ + 8 V1V4) Y^Z+ 
-8w3^viV4ZX + {8vi^V4 + 8w3^vi)Y^} 

> for i to nops(MGB3b) do LeadingTerm(MGB3b[i] ,tdeg_min(Y,Z))end do; 

2 iviW3, Z 
-2w3^i;i, Z 
8vi'^V4 + Sws^wi, Y^ 

The only interesting relation is given by the last leading coefficient, precisely vi {viV4+ 
V3). Set then 

W4 := {V1V4 + V3 = 0} 

'''The reader may check that setting W2 = —iwiw^ leads to the same results. 
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and introduce the new relation in the algebraic set W2 n W3 by intersecting it with 
Vi and yV4 to get the following codimcnsion 1 algebraic subset 

(42) (Vin>V2nW3)u(W2nW3nW4) . 

First of all observe that the first connected component in (|42l) reduces to the pre- 
vious case since Vi n W2 n W3 = Vo n Vi n V2- Let us then consider the second 
connected component in (|42p by introducing the relation W3 = iwiWi, with = Vi, 
in FS. Then 

> F4 : =Z*Y~2+Z~5+ (w [1] *Y-w [1] '2*w [4] *Z) '2-w [1] ~2*w [4] -2*Z~3+ 

> w[4]"2*Z"4; 

F4 := ZY^ + Z-^ + {wiY - wi^WiZf - wi^Wi^Z^ + w^^Z^ 

> priiit(mu=MilnorNumber(F4,{Y,Z}) ,tau=TYURINANmnber(F4,{Y,Z})) ; 

^ = 4, T = 4 

Theorem 16. 3f 2) then gives that 

• e /^^(O) is a simple A4 singularity for a generic A e W2 fl W3 n W4. 
At the moment we have gotten the following chain of codimension 1 algebraic 

subsets 

c ^ — ^ W2 ^ — ^ (Vo n Vi) u (W2 n W3) — ^ W2 n W3 n W4 

Vo n Vi n V2 

representing the adjacency diagram 

Ai ^ A2 ^ A-i ^ A4 

D4 

Go on by considering the standard basis of J/^ when A e Vo H Vi n V2: 

> v[0] :=0 : v[l] :=0 : v[2] :=0 : 

> MGB4 := MilnorGroebnerBasis(FL,{Y,Z}) 

MGB4 {-2r3-10Z^r-8y^;4Z^2yZ,r2_|_5^4^3^^^2_^4^^^3| 

> for i to nops(MGB4) do LeadingTerm(MGB4 [i] ,tdeg_min(Y,Z) ) end do; 

2, YZ 

-2, y3 

and then impose the further condition given by the latter leading coefficient, namely 
^^3 = 0: 

> v[3] := : 

> print (mu=MilnorNumber(FL,{Y,Z}) ,tau=TyurinaNmnber(FL,{Y,Z})) ; 

[I — T — h 

Theorem 16.3( 3) then gives that 

• e is a simple D5 singularity for generic 
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On the other hand, for A G W2 H Ws H >V4 set: 

> MGB4b := MilnorGroebnerBasis (F4, {Y, Z}) ; 

MGB4b {2YZ + 2 (wiY ~ wi^W4Z) wi,Y^ + 5 - 2 {wiY 
-iwi^Wi^Z'^ + Awi^Z^, {-^wi^w^:^ - 10u;i''w4^) Z^Y^ + {-IQwi^ - 10 wi^) ZY^+ 
-IQwi^Wi^Z^Y + \-lQwi^W4, - 10wiW4^) Y^Z"^ + {-IQwi^Wi^ - 10 wi*) y*} 

> for i to nops(MGB4b) do LeadiiigTerm(MGB4b [i] ,tdeg_min(Y, Z) ) end do; 

—2 wi'^W4, Z 

2 wi^W4^, Z 

-10^12^4^ - 10^yl^ 

As usual the only interesting relation is the last one, precisely vi(vi + W4). Set 
'■= {vi + Vi = 0} and intersect the algebraic subset defined by the latter 
relation with the second component in (j42|) to get 

(Vi u W5) n (W2 n W3 n W4) = (Vi n W2 n W3 n W4) u (W2 n W3 n W4 n W5) 

(43) = (Vo n Vi n V2 n V3) u (W2 n W3 n W4 n W5) 

The first connected component in the right term gives the previous case just con- 
sidered, then look at the second component by introducing the relation = iwi 
in FA: 

> F5:=Z*Y~2+Z~5+v[l] *(Y-I*v[l] *Z)'2+v[l] ~2*Z'3-v[l] *Z'4; 

F5 := ZY^ + Z^ + vi {Y - iviZf + vi^Z^ - mZ* 

> print (mu=MilnorNumber(F5,{Z,Y}) ,tau=TyurinaNumber(F5,{Z,Y})) ; 

/i = 5, T = 5 

and Theorem 16. 3r 2') allows to conclude that 

• e is a simple A5 singularity for generic 

Since the algebraic subsets in (|43p parameterizes 1-parameter deformations, the 
further and last step is clearly the trivial deformation given by e T^, completing 
the inclusions diagram as follows 

(44) C ^ W2 ^ U W| ^ W| ^ Wl 

Vi^ ^V^- ^{0} 

where := r\'k=a^'' ^^'^ •= rfk=a'^k- Diagram gives a stratification, 
by nested algebraic subsets, of the Kuranishi space of a simple Dq singular point, 
representing the following adjacency diagram 

(45) Ai A2 ^ A3 ^4 ■< A5 



Di ^ ^ De 

and geometrically represented by Figure 2, as already observed in Remark 16.71 
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The recursive structure is now sufficiently clear to pass at the general step for n > 4. 
Recalling /a as written in ([39|) define 

(46) vi ZA 

i=fe ^ ^ 

and consider the associated codimension 1 sub-schemes of C 

(47) Vk {ffc = 0} , < fc < n - 2 

{{4:ViV2 — fQ = O} for k = 2 (vanishing of det(Hess)) 
{viVk + Vk-i =0} for 3 < fc < 71 - 2 

{wi + Vn-2 — 0} for fc = rt — 1 

Then diagrams (|44p and ([l5|) generalizes to give diagrams (pij) and ([55)1 in the 
statement, respectively. Let us conclude by pointing out that in diagram (|44p . 
Vq = Vq n >V|. This fact generalizes to diagram (p4|) giving the stated relations 
([36]) between spaces of such a stratification. □ 

6.4. Simple singularities of Eq type. 

Theorem 6.8. Let be the Kuranishi space of a simple N -dimensional singular 
point e /^^O) with 

N~l 

f{xi,...,XN+l)=^xf + X%+X%^i 
i=l 

The subset ofT^ parameterizing small deformations o/O G /^^(O) to a simple node 
is the union of 6 hyper surf aces. Moreover, calling C any of those hyper surf aces, 
there exists a stratification of nested algebraic subsets giving rise to the following 
sequence of inclusions and c.i.p. squares 

(48) C ^ ^ W2 ^ W| ^ ^ W| ^ ^ n V2 

Vo^- 



verifying the ArnoVd's adjacency diagram 
(49) Ai A2 ^ A^ Ai ^ ^5 






where 
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• C is the hypersurface ofT^ defined by equation h52\l . keeping in mind i51\) . 

• "^'o" •= rifcLo '^k and W™ •= P\k=2 where Vfe, Wfe are hypersurfaces of C 
defined by equations i5S\) . |5-^p and i55\) . 

• V is a hypersurfaces of C defined by equation 115 9\) . 

• yy| is a codimension 3 Zariski closed subset of C defined in H58\) . 

Remark 6.9. Analogously to what observed in remark fO.?! the fact that every square 
in diagram (|48p is c.i.p. means that 

(50) w^nv^^vn , (w^ n V2) n (v n Vo^) = {0} 

In particular Figure 2 represents geometrically the stratification of Wf C T^, by 
setting 

F^Wi , E = Vo , D = W^ , C = V n Vo^ , B = >V| n V2 , A = {0} . 

Proof. By the Morse Splitting Lemma [6?2l our problem can be reduced to the case 
TV = 1 with /(y, z) = + z'^. To get an explicit basis of the Kuranishi space 
type 

> F:= y'3 + z~4; 

F := + 

> TyB := TyurinaBasis (F) ; 

TyB [yz^, z^, yz, z, y, 1] 

Therefore 

T'^ = {^,y,z,yz,z^,yz'^)c . 
Given A = (Aq, Ai, . . . , A5) e T^, the associated deformation of Uq is 

Ua = {/A(y,2)==0} where 
fA{y,z) := /(y, z) + Ao + Aiy + A2Z + Asyz + A4Z^ + Asyz^ 

A solution of the jacobian system of partials is then given by a solution pA = (yA, ^^a) 
of the following polynomial system in C[A][y, z] 

r 3y2 + Ai + A3Z + A5Z2 = 
^ ' \ 4z3 + 2A4Z + A2 + y(A3 + 2A5Z) = 

giving precisely 6 critical points for /a- Then p^, one of them, is actually a singular 
point of Ua if and only if 

(52) PA e Ua Ae C where 

^ ■= {Va + ^^a + ^0 + AiyA + A2ZA + A3yAZA + A4Z^ + XzyAz'i = 0} c 

which is one of the 6 hypersurfaces of parameterizing small deformations of 
Cz Uq to nodes. After translating y i-^ y + yA, z i-^ z + za, we get 

/a(2/ + yA, z + za) = 

f{y,z) + {y% + z\ + Xq + XiyA + X2ZA + hyAZA + >^4z1 + X^yAzI) 
+ {3yl + Xi+ X3ZA + X5ZI) y 

+ (4z3 +2A4ZA + A2+yA(A3 + 2A5ZA))z 

+ (A3 + 2A5ZA) yz + 3yA y^ + (6zi + A4 + AsyA) 

+ 4zA z^ + As yz^ 
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as may be verified by setting K := ua, L := za and typing: 

> F[Lambda] := F+sum (lambda [i]*TyB[T-i] ,i = .. T-1) 

FA y'^ + + + Xiy + X2Z + Agyz + X^z^ + X^yz^ 

> z:=Z+L : y:=Y+K : 

> F [Lambda] := collect (F [Lsunbda] , [Y, Z] , 'distributed'); 

FA := + 3 KY^ + X^YZ^ + (A3 + 2 A5L) YZ + (A3F + Xi+iK^ + X^L^) Y+ 
+ 4 FZ^ + (A4 + A5F: + 6 F^) + (2 A4L + A3F: + A2 + 2 X^KL + 4 F^) Z+ 

+f:3 + Ao + AiF: + A4F2 + X2L + + x^kl + x^kl^ 

Define: 

(53) 

vo = A3+2A5ZA , wi = 3?/A , W2 = 6z^+A4+A5?;a , ^3^X5 , 'i;4 = 4za 
and Vk ■= {vk = 0}. Tlicn type: 

> SD := [Y*Z, Y"2, Z"2, Y*Z"2, Z~3] : 

> s := iiops(SD) : 

> FL := Y~3+Z~4+sum(v[i]*SD[i+l] , i = .. s-1) ; 

FL := Y^ + Z* + vqYZ + viY'^ + ViZ^ + vaYZ^ + v^Z^ 

> MGB := MilnorGroebnerBasis(FL, {Y,Z}); 

MGB := {-6v2Y'^ + {-2v2V3 + SvoVi)Z^ + 2V0V3YZ + {vo^ -Av2Vi)Y + AvoZ^, 
3Y^ + voZ + 2viY + V3Z^,4: Z^ + vqY + 2 V2Z + 2 V3YZ + 3 ViZ^} 

> for i to nops(MGB) do LeadingTerm(MGB[i] ,tdeg_miii(Y,Z))end do; 

vo'^ - 4:V2Vi, Y 
2v2, Z 

Vq, Z 

The only interesting relation is given by the first leading coefficient giving the 
vanishing of det(Hess(0)) = 4:ViV2 — Vq. Introduce it in FL by setting Vk = w^. and 
considering 

> F2:=Y~3+Z~4+(w[l]*Y+w[2]*Z)"2+sum(v[j]*SD[j+l] , j = 3.. s-1) 

F2 := Y^ + Z^ + {wiY + W2Zf + v^Y Z^ + v^Z^ 

> print(mu=MilnorNmnber(F2,{Y,Z}) ,tau=TYURlNANmnber(F2,{Y,Z})) ; 

^Ji = 2,T = 2 

Then Theorem 16. 3f 2) ensures that 

• G /a ^(0) is a simple A2 singularity for A generic in 

(54) W2 := {4wii;2 - vl = O] . 

Consider the standard basis: 

> MGB2 := MilnorGroebnerBasis(F2, {Y,Z}); 

MGB2 := {AZ^ + 2 {wiY + W2Z)w2 + 2v3YZ + 3v4Z'^,{9wi'^V4-9wiW2V3)Y^ 

+ ( — 6 W2^Wi + 6 Wi^V4 — 6 Wi^W2V3) Y^ + ( — 3 WiU>2W3^ + 3 Wi'^V4V3^ YZ^ 
+ ( — 9 W1W2V4 + 3 W2'^V3) Y^Z + (8 Wi^W2^ — 3 V4V3W1W2 + 'i«2^'f3^) Z"^, 

3Y^ + 2{wiY + W2Z) wi + vsZ^ } 
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> for i to nops(MGB2) do LeadingTerm(MGB2 [i] ,tdeg_min(Y,Z) ) end do; 

2w2^, Z 
2wiW2, Z 

— 6 W'£'Wx + 6 Wx'V^ — 6 Wi"^?«2W3, Y"^ 

Relations coming from the first and the second leading coefficients do not increase 
the Milnor number since: 

> w[l] := 0: 

> print (inu=MilnorNumber(F2,{Z,Y}) ,tau=TyurinaNmnber(F2,{Z,Y})) ; 

^ = 2, T = 2 

> unassign('w[l] ') : w[2] := : 

> print (mu=MilnorNumber(F2, {Z,Y}) , tau=TYURINANumber(F2,{Z,Y})) 

^ = 2, T = 2 

Then consider the third leading coefficient, giving v/^ = fj^fa + (^^7) ; since we can 
assume wi ^ 0. Then set 

> w[2] := u*w[l] : v[4] := u*(v[3]+u"2) : F2 ; 

+ Z^ + [wiY + uwiZf + v^YZ"^ + M (w3 + u^) 

> F3 := Y~3+Z~4+v[l]*(Y+u*Z)"2+v[3]*Y*Z"2+u*(v[3]+u~2)*Z~3 

F3 := Y^ + Z^ + vi{Y + uZf + vjX Z^ + u {v^ + u^) Z^ 

> print (mu=MilnorNumber(F3, {Z,Y}) ,tau=TYURINANumber(F3,{Z,Y}) ) 

/i = 3, T = 3 

and Theorem [Oi;2) gives that0 

• e /y^^(O) is a singularity of type A3 for any generic A £ H VV3 where 

(55) W3 := {vlvl - V2{viV3 + V2f = 0} . 

The latter equation is obtained by observing that, after eliminating wi ^ 0, the 
third leading coefficient in MGB2 gives 

wlvi = ±W2iwlv3 + W2) 

(where the sign depends on the choice of the square roots wf = Vi) whose square 
is the equation of in l|55p . Let us now consider the standard basis: 

> MGB3 := MilnorGroebnerBasis(F3,{Y,Z}) ; 

MGB3 := { (16 vi^ - 24 viu^v^ - 4 vs^vi ~ 36 viu^) Y^ + (I8 u^v^ - 24 viu+ 
6 uva'^) ZY^ + (-3 u^va^ + 8 viu^va - 2 u^vs^) Z^ + (-36 u^vs - 27 - 6 ^3^+ 
2'ivi)Y^ + {8V1V3 - mu^vs^ + 2Aviu'^ - 18u*V3 ~2v3^) Z^Y^+ 
(-8 V1UV3 + 6 u^V3^ + 2 uv3^) Z^Y, 3Y^ + 2vi(Y + uZ) + V3Z'\ 
4Z^ + 2vi {Y + uZ)u + 2v3YZ + 3u{v3 + u'^) Z'^ } 

> for i to nops(MGB3) do LeadingTerni(MGB3 [i] , tdeg_min(Y, Z) )end do; 

2 viu, Z 
2viu^, Z 



'The reader may check that choosing 114 = 



— 14(113 + it^) leads to the same conclusion. 
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16 wi^ - 2Aviu'^V3 - Av^'^vi - 36viu^, 

The last leading coefficient can be rewritten as vi [4ui — (wa + 3m^)^] , giving all the 
new interesting relations, precisely i;i = and vi = 1/A(v3 + 3u^)^. Since: 

> v[l] := 0: 

> print (mu=MilnorNumber(F3,{Z,Y}) ,tau=TyurinaNumber(F3,{Z,Y})) 

^ = 4, T = 4 

> unassign('v[l] ') : v[l] := (1/4) * (3*u-2+v [3] ) "2 : 

> print (mu=MilnorNumber(F3,{Z,Y}) ,tau=TyurinaNmnber(F3,{Z,Y})) 

^ = 4, T = 4 

the Milnor number is then increasing for A in 

(56) (Vi n W2 n Wa) u (W2 n Ws n W4) = ( fl Vfc J u m Wk\ 

\k=0 J \k=2 J 

where, recalling that — V2/V1, 

(57) W4 {Avl - (fiW3 + iv2f = 0} . 

As usual by now, call := flLa '^fe and := flLa ^fc- Then ^ rewrites as 
U W|. Notice that 

vl c wt =^ Vl C wl . 

Define the following codimension 1 Zariski closed subset of Wl 

(58) WWo • 
Then Theorem 16. 3f 2') implies that 

• G /y^^(O) is a singularity of type for any generic A G VV| 
and Theorem 16. 3r 3) ensures that 

• G /^^(O) is a singularity of type D4 for any generic A G Vg . 
Let us firstly consider the latter case: 

> v[0]:=0 : v[l]:=0 : v[2]:=0 : FL ; 

+ Z'^ + vsYZ^ + ViZ^ 

> print (mu=MilnorNumber(FL,{Y,Z}) ,tau=TyurinaNumber(FL,{Y,Z})) 

^ = 4, T = 4 

> MGB4 := MilnorGroebnerBasis(FL,{Y,Z}) 

MGB4 := {3Y^ + V3Z^,4:Z^ + 2V3YZ + Sv4Z'^,9v4Y'^ -AvsZ^ - 2v3^YZ, 
-36v4Yv3Z^ -8v3^Z'^ + {I2v3^ + 81vi^)Y^} 

> for i to nops(MGB4) do LeadingTerm(MGB4[i] ,tdeg_min(Y,Z))end do; 

^ Although H58| l is a topological definition, W| is clearly an algebraic subset of C. Unfortunately 
it is not a complete intersection but the reader may obtain the (long) list of generators of its 
defining ideal by employing the MAPLE command Eliminationldeal in the Polynomialldeals 
package. Not all the so listed generators are effectively necessary. The reader may compare them 
with those obtained by employing the MAPLE command eliminate, being careful with possible 
multiplicity and reducibility of generators. 
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5v4, Z 
-2v3^, YZ 
12t;33 + 81^;4^ 

The only interesting relation is given by the last leading cocfBcient since: 

> v[4] := : 

> print (mu=MilnorNmnber (FL , {Y , Z}) , tau=TyurinaNmnber (FL , {Y , Z}) ) 

^ = 4, T = 4 

> unassign('v[4] ') : v[3]:=0 : 

> print (mu=MilnorNumber(FL,{Y,Z}) ,tau=TyurinaNmnber(FL,{Y,Z})) 

/i = 4, T = 4 

> unassign('v[3] ') : v[3]:= -3*a"2 : v[4] := -2*a~3 : FL 

Y^ + Z^ - Sa^YZ'^ - 2a^Z^ 
fi — MilnorNumher {FL, {Y, Z}) , t — TyurinaNumher {FL, {Y, Z}) 

^ — 5, T — 5 

Therefore if 

(59) V := {4i;^ + 27^4 = O} 
then Theorem l6.3r 3') allows to conclude that 

• S /^^(O) is a singularity of type for A generic in V (IVq. 
Let us now consider A e W|. Then 

> F3; 

Y^ + Z'^ + 1/4 (3 + {Y + uZf + waFZ^ + u (f 3 + u^) 

> MGB4b:=MilnorGroebnerBasis(F3,{Y,Z}) : 

> for i to nops(MGB4b) do 

> LeadingTerm(MGB4b[i] ,tdeg_min(Y,Z))end do; 

1/2 {Su^ + vsfu, Z 
1/2 (3^2 + 173)^ u2, Z 

12709329141645 , 2 38127987424935 . 38127987424935 4 

256 256 256 

1412147682405 , ^ . 

256 

> CC:=[seq(LeadingCoeff icient(MGB4b[i] ,tdeg_min(Y,Z) ) , 

> i =1. .nops(MGB4b))] : 

> factor (CC [3] ) ; 

1412147682405 , , ,3 
256 ^ ' 

The latter factorization clarifies that the third leading coefficient does not give any 
further relations w.r.t. those given by the previous leading coefficients, namely 
W2(3'y2 + V1V3) = 0. Define 

(60) W5 := {vivs + 3v2 = 0} 
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and observe that: 

> u := : F3 

+ Z'^ + 1/4:V3^Y^ + vsYZ^ 

> print (mu=MilnorNumber(F3,{Y,Z}) ,tau=TyurinaNmnber(F3,{Y,Z})) 

^ = 5, T = 5 

implying, by Theorem 16. 3f 2). that 

• G /^^(O) is a singularity of type Ac^ for a generic A in 

2 

n V2 = w n Pi V2fe 

k=0 

where W :— {wf — 4ui = 0}. 

On the other hand, notice that >V| n W5 = V fl Vq giving the D5 case previously 
analyzed, as may also be directly checked as follows 

> unassignCu') : v[3] := -3*u~2 : F3 

Y^ + -3 u^YZ'^ - 2 u^Z^ 

Since (Vfl Vq ) U (W| n V2) parameterizes 1-parameter deformations, the further and 
last step is clearly the trivial deformation given by G , completing the inclusions 
diagram (|48)l . giving a stratification, by nested algebraic subsets, of the Kuranishi 
space of a simple singular point and representing the adjacency diagram (|49p . 
At last, to prove (|50p. let us observe that 

y^l n = V n vl 

since the common solutions of equations 

are given by (fo, wi, ^2, fs, V4) — (0, 0, 0, — 3u^, — 2u'^). Moreover 

n V2) n (V n Vo') = ( w n p| V2k \ n v n V2 = {0} 

\ fe=0 / 

since is the only common solution of equations 

= i;2 = W4 = , 4wi = , 4w| + 21vl = . 

□ 

6.5. Simple singularities of E-j type. 

Theorem 6.10. Let be the Kuranishi space of a simple N -dimensional singular 
point e /^^O) 'w^th 

N-l 

f{xi,. . . ,XN+i) ='^x1 + X% + XnX^j^^-^ 
i=l 

The subset ofT^ parameterizing small deformations ofOE /^^(O) to a simple node 
is the union of n hyper surf aces. Moreover, calling C any of those hyper surf aces, 
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there exists a stratification of nested algebraic subsets giving rise to the following 
sequence of inclusions, c.i.p. squares and a hinged union of c.i.p. squares 

(61) C ^ > W2 ^ ^ Wl ^ ^ Wl ^ ^ W| u W'l ^ ^ W'2 




verifying the Arnol'd's adjacency diagram 

(62) Ai A2 ^ A3 Ai A5 Aq 




Eq i?7 

where 

• C is the hypersurface ofT^ defined by equation 1165]) . keeping in mind {^p, 

• V™ :~ PlfcLo and W™ := C\k=2 where Vfe, Wk are hypersurfaces of C 
defined by equations 1^) . |6'7[ ) , |70[) and |7j| ), 

• V and V' are a hypersurfaces and a codimension 2 complete intersection in 
C defined by equations i68\) and I169\) . respectively, 

• W| and W2 are Zariski closed subsets of C defined by |7^[ j and 

In particular complete intersection properties in diagram I161\) are summarized by 
the following relations: 

n Vo^ - V n , wl n (v n vi) - V n , vv'l n (v n v^) = v n Vq^ 
(63) (V n Vo^) n (V n v^) = {0} = wl n (V n v§) . 

Proof. By the Morse Splitting Lemma [121 our problem can be reduced to the case 

= 1 with f{y, z) — y^ + yz^. To get an explicit basis of the Kuranishi space 
type 

> F:= y"3 + y*z~3: 

> TyB := TyurinaBasis (F) ; 

TyB [z'^,z^,z^,yz,z,y,l] 

Therefore = {l,y, z,yz, z^, z^ , z^)c and given A — (Ao, Ai, . . . , Ag) G T^, the 
associated deformation of Uq is 

Ua = {/A(y, z) = 0} where 
/a(j/, z) := f{y, z) + Ao + Aiy + X2Z + X^yz + \^7? + \^z^ + X^z^ . 
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A solution of the jacobian system of partial derivates is then given by a solution 
PA = {VA, z\) of the following polynomial system in C[A][y, z] 



(64) 



3t/2 + z^ + Xi+X3Z = 
Syz"^ + X2 + Xsy + 2X4Z + SXqz'^ + 4Xez^ = 



giving precisely 7 critical points for /a- Then pA, one of them, is actually a singular 
point of [/a if and only if 

(65) paEUa A G £ c Ti where 

C := {yl + yAz\ + Aq + Aij/a + A2ZA + As^a^a + Xiz\ + X^z\ + Ae^i = 0} 

After translating y ^ y + yA, z ^ z + za-, get 

fh{y + yA, z + za) = 

f{y, z) + {y\ + 2/A^A + -^0 + Aij/A + X2ZA + XzyAZA + X4,z\ + X^Za + Xqz'^^ 

+ {iyl + 4 + Ai + Asza) y 

+ (32/a4 + A2 + Aaz/A + 2A4ZA + SAszi + ^X^zl) z 

+ (34 + A3) yz + 3yA y"^ + (3?/A^A + A4 + 3A5ZA + 6A64) -^^ 

+ 32;a yz"^ + (As + 4A6^;a + 2/a) z^ + Ag z^ 

as can be checked by setting K := yA, L := za and typing: 

> T := nops(TyB) : 

> F[Lambda] := F+sum(lambda[i] *TyB [T-i] , i= . . T-1) 

FA := y^ + yz^ + Ao + Xiy + X2Z + Xzyz + Xaz^ + X^z^ + X%z^ 

> z := Z+L : y := Y+K : 

> F [Lambda] := collect (F [Lambda] , [Y, Z] , 

> 'distributed'); 

FA := + 3 KY^ + YZ^ + 3 LYZ^ + (A3 + 3 L^) YZ+ 
{X3L + 3K^ + Xi+L^)Y + XeZ^ + (A5 + + 4 AeL) Z^+ 

{Xi + 3KL + 3 A5L + 6 XeL^) 

(3 KL^ + A2 + 4 XeL^ + 2X4L + X3K + 3 X^L^) Z+ 

+ XeL^ + Ao + XiL"^ + KL^ + X^KL + X^K + X2L + AgL^ 

Define: 

Vo = 34 + A3 , vi = 'dyA , V2 = 'dyAZA + A4 + 3A5ZA + 6A64 > 

(66) vz = 3zA , 1^4 = A5 + 4A62;a + Z/a , = Ae , 

and Vk ■= {vk = 0}. Then the proof goes on exactly as in the Fg case until D4 
singularities: precisely setting 

(67) W2 = {4t;it;2 - 1;^ = 0} 

W3 = {vfvl - V2{V1V3 + V2f = 0} 

we have the inclusions's chain 



D £ D W2 D Wl D Vi n W| = V, 
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of subsets parameterizing small deformations whose generic fibre is either smooth 
or admits a singularity of type Ai, A2, A3 or D^, respectively: this fact can be 
checked as follows Q 

> SD := [Y*Z, Y"2, Z"2, Y*Z"2, Z~3, Z~4] : 

> s := nops(SD) : 

FL := + YZ^ + vqYZ + viY^ + V2Z'^ + waFZ^ _^ ^^^3 _^ ^^^4 

> MGB:=MiliiorGroebiierBasis(FL,{Y,Z},plex_min(Z,Y) ) 

MGB {;iY'^ + Z^ + vqZ + 2v{Y + v:iZ^,Qv:iY'^Z + {AviV2-va'^) Z+ 
(8 viv^ ~ vo) Z^ + + 6 viVi) Z^ + 9Y^Z^ + 12 Yv5Z'^ + {9v4 + 6vi) YZ^ 

+ (6 W2 + 4 V1V3) YZ, 3 + vqY + 2 V2Z + 2 waFZ + 3 v^Z^ + 4 v^Z^ } 

> for i to iiops(MGB) do LeadingTerm(MGB [i] ,plex_min(Z, Y) )end do; 

2fi, Y 

AviV2 - Vq"^, Z 

> v[0] := : 

> print (mu=MilnorNuiiiber(FL,{Y,Z},plex_min(Z,Y)) ; 

> unassignCvCO] ') : v[2]:=0 : 

> print (mu=MilnorNumber(FL,{Y,Z},plex_mirL(Z,Y)) ; 

/i=l 

> unassignC ' V [2] ' ) : 

> F2:=Y~3+Y*Z~3+(w[l]*Y+w[2]*Z)~2+sum(v[j]*SD[j+l] ,j=3. .s-1) 

F2 Y^ + YZ^ + {wiY + W2Zf + v^^Y Z^ + v^Z^ + v^Z^ 

> print (mu=MilnorNumber (F2 , {Y , Z} ,plex_niin (Z , Y) ) ) 

> MGB2:=MilnorGroebnerBasis(F2,{Y,Z},plex_min(Z,Y)) ; 

MGB2 := {{2W1W2V3 + 12W2^V5) Z'^+ 

{2wiV3 W2 + 2W2 Wi +9W2 V4 — 8W2W1 Vi^j Z + 

(6 W2^U}i'^V3 + 6 — 6 W2Wi^Vi) Z^ — 9 W2WiY^ Z^ + (9 W2^ — 12 U'2Wlf 5) Y Z^ 

+ (-9 W2WiVi - 6 W2Wi^ + 6 W2^V3) YZ"^, 3 + 2 (wiF + W2Z) ^2 + 2 wgyZ 
+3w4Z2 + 4w5Z3,3y2 + ^3^2 (wiy + W2Z)wi +t;3Z2 } 

> for i to nops(MGB2) do LeadingTerm(MGB2 [i] ,plex_min(Z,Y) )end do; 

6 W2^W\'V3 + 6 W2^ — 6 W2W\'V/^^ Z^ 

2w2Wi, Y 

2^«l^ y 



In the following computation we do not employ the default l.m.o. but plexjninCZ, Y) , which 
is the l.m.o. defined as the opposite of the pure lexicographic g.m.o. with Y < Z. In fact the 
latter l.m.o. turned out to be considerably more efficient than td6g_min(Y,Z). 
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> print (mu=MilnorNumber(F2,{Z,Y},plex_niiii(Z,Y)) , 

> tau=TYURINANuinber(F2,{Z,Y}, [plex_min(Z, Y) ,tdeg(Z, Y)] ) ) ; 

^ = 2, r = 2 

> unassignCwEl] ') : w[2]:=0 : 

> print (mu=MilnorNumber(F2,{Y,Z},plex_min(Z,Y)) , 

> tau=TyurinaNuinber (F2 , {Y , Z} , plex_min(Z , Y) ) ) 

/i = 2, T = 2 

> unassign('w[2] O : w [2] :=u*w[l] : v [4] : = u* (v [3] +u~2) : 

> F2 ; 

y3 ^ + {wiY + uwiZf + v^YZ'^ + u{vi + u^) Z^ + vgZ^ 

> F3 : =Y-3+Y*Z-3+v [1] * (Y+u*Z) "2+v [3] *Y*Z"2+u* (v [3] +u"2) *Z"3 

> +v[5]*Z~4 

F3 := + YZ^ + vi{Y + uZf + v^YZ^ +u{v3+ u^) Z^ + v^Z'^ 

> print (mu=MilnorNumber(F3,{Y,Z},plex_iiiin(Z,Y)) , 

> tau=TYURINANumber(F3,{Y,Z}, [plex_min(Z,Y) ,tdeg(Z,Y)] )) 

/i = 3, T = 3 

> MGB3:=MilnorGroebnerBasis(F3,{Y,Z},plex_min(Z,Y)) ; 

MGB3 := {{-27 -9u^V3^ - 10wim?;3 - 24viu^V5 - ^i^u'^vs) Z'^+ 
{-ISviu^ + 24viuv5 -6uv3^ - 18u^t;3) YZ^+ 
{-2AviV3U^ + IGuvi'^v^ - 36?i^;i - Aviuvs"^ - IGvi'^u'^) Z^+ 
{-9uv3 - 27 u^) YZ^ + {-36u^v5 -Qviu- Uuv^vq) ^^ 

3YZ^ + 2vi {Y + uZ)u + 2v3YZ + 3u{v3+u^) Z^ + AvsZ^, 

3Y'^ + Z^ + 2vi {Y + uZ) + V3Z'^ } 

> for i to nops(MGB3) do LeadingTenii(MGB3[i] ,plex_min(Z,Y))end do; 

—24viV3U^ + 16uvi^V5 —36u^vi —4viuv3'^ — IGvi^u^, Z^ 

2viu, Y 
2vi,Y 

> u := : 

> print (mu=MilnorNiimber (F3, {Z, Y} ,plex_min(Z, Y) ) , 

> tau = TyurinaNumber(F3,{Z,Y},plex_min(Z,Y))) 

/X = 3, r = 3 

> unassignC 'u' ) : v[l] := : 

> print (mu=MilnorNumber(F3,{Y,Z},plex_min(Z,Y)) , 

> t au=Tyur inaNnmber (F3 , {Y , Z} , plex_min (Z , Y) ) ) 

/i = 4, r = 4 

Also the singularities' specialization in fibers parameterized by Vq proceeds as in 
the case of Eq singularities. Precisely: 

> v[G] := : v[l] := : v[2] := : FL 

y3 ^ YZ^ + V3YZ^ + 1-4^3 + V^Z'^ 

> MGB4 := MilnorGroebnerBasis(FL,{Z,Y},plex_min(Z,Y)) 

MGBi := [ZY"^ + Z^ + V3Z'^,{lQv3^ + mviV5) Z^ + {-2Av3V5 + 27 va)YZ^ 
+ (4 V3^ + 27 Vi^) Z^ + 6v3Z^,3 YZ"^ + 2 V3YZ + 3 v^Z"^ + 4 v^Z'^ } 
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> for i to nops(MGB4) do LeadingTerm(MGB4[i] ,plex_min(Z,Y) )end do; 

4^;33 + 27^;4^ 

3, y2 

2«3, YZ 

> v[3] := : 

> print(mu=MilnorNmnber(FL,{Z,Y},plex_min(Z,Y)) , 

> tau=TyurinaNiimber (FL, {Z , Y} ,plex_min(Z, Y) ) ) 

^ = 4, T = 4 

> unassigii('v[3] ') : v [3] := -3*a"2 : v [4] := -2*a"3 : FL 

y3 - 3 a^YZ'^ - 2 a^Z^ + v^Z^ 

> print (mu=MilnorNumber(FL,{Z,Y},plex_miii(Z,Y)) , 

> t au=Tyur inaNumber (FL , {Z , Y} , plex_miii (Z , Y) ) ) 

^ — T — b 

Therefore if 

(68) V := [Avl + 27vl = O} 
then Theorem 16. 3f 3) allows to conclude that 

• G /^^(O) is a singularity of type for A generic in V fl Vq. 
Moreover: 

> MGB5 := MilnorGroebnerBasis(FL,{Z,Y},plex_min(Z,Y)) ; 

MGB5 := { (48 - 48 a^wg) Z^ + (12 vr, - 9 a) Z^Y + (16 - 12 av^ - 6 a^) Z^ 
3 YZ"^ - 6 a^YZ - 6 a^Z^ + 4 v^Z^ ,i Y"^ + Z^ -2, a^Z"^ } 

> for i to nops(MGB5) do LeadingTerm(MGB5 [i] ,plex_min(Z,Y) )end do; 

48a''-48a^i;5, Z"^ 
-6a2, YZ 

3, 

> a := : FL 

y3 _^ y^-S + IJsZ^ 

> print (mu=MilnorNiimber(FL,{Z,Y},plex_min(Z,Y)) , 

> tau=Tyur inaNumber (FL , {Z , Y} , plex_min (Z , Y) ) ) 

/i = 6, T = 6 

> unassign( ' a' ) : v[5] := a : FL 

y3 ^ - 3 a^yZ^ - 2 a^Z^ + aZ* 

> print(mu=MilnorNumber(FL,{Z,Y},plex_min(Z,Y)) , 

> tau=Tyur inaNumber (FL , {Z , Y} , plex_min (Z , Y) ) ) 

^ = 6, T = 6 

Then Theorem 16. 3r 4) gives that 

• G /a^(0) a singularity of type Eq for A generic m V fl Vq = Vq . 
On the other hand, by defining the following codimension 2 subset of C 

(69) V = {w3 + H = «4 + 2vl = 0} , 
Theorem 16.3( 3) gives that 
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• e ^(0) is a singularity of type Dq for A generic in V' n Vq 

A further specialization here gives then the trivial deformation since (V fl Vq) n 

(v'n Vo^) = v'n = {o}. 

Let us the come back to consider Wf ^^'^ \ook at the first leading coefficient in 
MGB3, giving the relation 

4wi(t)5 -u) - {v3 + 3u^)^ = . 

Then set :— t'^ + u and :— ±2wit — and typed 

> v[3] :=2*t*w[l]-3*u"2 : v[5]:=t~2+u : F2 

y3 ^ + {wiY + uwiZf + 

(2 twi - 3 u^) YZ^ + M (2 iwi - 2 u^) Z^ + (t^ + u) Z^ 

> print (mu=MilnorNumber(F2,{Y,Z},plex_min(Z,Y)) , 

> tau = TYURINANumber(F2,{Y,Z}, [plex_min(Z,Y) ,tdeg(Z,Y)] )) 

^ = 4, T = 4 

Define 

(70) Wi {I6vlv2 - [{viV2 + Svs)^ - Avfvs]^ = O} 

whose equation is obtained by eliminating u and t from the following set of equa- 
tions, parameterizing Wg \ , 

(71) V2 = u^vi , U4 = u(u3 + u^) , W5 = It + , t"! = , ^3 = ±2i(;ii — . 

Observe that C W| Vg C W| and define the following codimension 1 Zariski 
closed subset of W| 

(72) W| := wf\Vl . 
Then Theorem 16. 3f 2') implies that 

• G /y^^(O) is a singularity of type for any generic A G VV|. 
Moreover: 

> MGB4b := MilnorGroebnerBasis(F2,{Y,Z},plex_min(Z,Y)) ; 

MGB^h := {3 + + 2 {wiY + uwiZ) wi + (2 twi - 3 u^) Z^, 

3 + 2 (wiy + uwiZ) uwi + 2 (2 <wi - 3 m^) Y Z + iu {2twi ~ 2 u^) Z'^+ 

4 + u) (-9wi - 54ut)rZ^ + {-Quwi - 12u)it2 _ 72 ut^ - 54 iA) ^6+ 
(-20twi4 - SQwi^ut^ - muh^wi^) Z^+ 

(-30 twi^ - 102 wiui^ + 90 u^t - 72 u^t^ + 15 ^^u^^ YZ^+ 

(-24 wi^t^ + 90 - 38 wi^ut + 72 w^t^ + 15 u^wi - 60 wiu^t^ - 24 wiut" - 6 wi^) Z^ } 

> for i to nops(MGB4b) do LeadingTerm(MGB4b[i] ,plex_min(Z,Y))end do; 

^wi^, Y 
2uwi^, Y 

-20it«i^ - SOwi^ut^ - 60uh^wi^, Z^ 

> u := : F2 

y3 ^ YZ^ + wi2y2 -^2twiYZ^ + t^Z^ 



'The reader may check that choosing 1)3 := —2w\t — (iv? gives the same result. 
'The same considerations explained by footnote |6] are still holding, here. 
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> priiit(mu=MilnorNuinber(F2,{Z,Y},plex_min(Z,Y)) , 

> tau=TYURINANumber(F2,{Z,Y}, [plex_miii(Z,Y) , tdeg(Z,Y)])) 

^ = 4, T = 4 

> unassignCu') : w[l] := : F2 

y3 - 3 u^YZ'^ - 2 u^Z^ + {t^ + u) Z^ 

> print (mu=MilnorNumber(F2,{Z,Y},plex_miii(Z,Y)) , 

> tau=TyurinaNumber (F2 , {Z , Y} ,plex_min(Z , Y) ) ) 

^ — 5, r ~ 5 

> unassignCwCl] ') : t:=0 : F2 

y3 YZ^ + {wiY + uwiZf -iu^YZ'^ -2u^Z^ + Z^u 

> print (mu=MiliiorNumber(F2,{Z,Y},plex_miii(Z,Y)) , 

> tau=TYURINANumber(F2,{Z,Y}, [plex_min(Z,Y) ,tdeg(Z,Y)] )) 

/i = 5, T = 5 

Then n Vi = V Ci Vq reduces to the aheady considered case of generic 
singularities. On the other hand setting t = means defining 

(73) -.^ {vivl - V2 ^ 0} , Wl W| \ , 

and observing that, by Theorem 16. 3r 2). 

• G /y^^(O) is a singularity of type for generic A G yV| H W5 = Wf- 
Consider then 

> MGB5b := MilnorGroebnerBasis(F2,{Z,Y},plex_min(Z,Y)) ; 

MGB5b := {SY^ + Z^ + 2 {wiY + uwiZ) wi - 3u^Z^ , 
-Vlwx^Z^ + Ylwx^Z'^u - fSwi^Z^r, 

3 YZ'^ + 2 {wxY + uwxZ) uwx - 6 Y Zu^ - 6 u^Z"^ + 4:Z^u} 

> for i to nops(MGB5b) do LeadingTerm(MGB5b[i] ,plex_min(Z,Y))end do; 

2wi^ Y 
-f2^^;l^ 
2uwi^, Y 

> u := : F2 

Y^ + YZ^ +wi^Y^ 

> print(mu=MilnorNumber(F2,{Z,Y},plex_min(Z,Y)) , 

> t au=Tyur inaNumber (F2 , {Z , Y} , plex_min (Z , Y) ) ) 

/i = 5, T = 5 

> unassign('u') : w[l]:=0 : F2 

y3 ^ YZ^ -Su^YZ^ -2u^Z^ + Z^u 

> print (mu=MilnorNumber(F2,{Z,Y},plex_min(Z,Y)) , 

> tau=Tyur inaNumber (F2 , {Z , Y} , plex_min (Z , Y) ) ) 

^ — 6, T — 6 

which means that Vi n Wf = V" fl Vq reduces to the aheady considered case of 
generic singularities. 
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Let US then come back to ^-iid consider the last leading coefficient in the standard 
basis M GBAh giving the further relations wi + ut = Q and wi + 'dut = 0, not yet 
analyzed. Then 

> F2 

y3 + {wiY + uwiZf + (2 twi - 3 u^) YZ^ 

+u (2 twi - 2 u^) Z^ + if + u) Z^ 

> w[l] := -u*t : F2 

+ YZ^ + {-tuY -uHzf + {-2t'^u-3u^) YZ^ 
+u (-2 t^u - 2 u^) Z^ + {t^ + u) Z^ 

> print(mu=MilnorNuinber(F2,{Z,Y},plex_min(Z,Y)) , 

> tau=TYURINANumber(F2,{Z,Y}, [plex_min(Z,Y) ,tdeg(Z,Y)] ) ) 

^ = 4, T = 4 

> w[l] := -3*u*t : F2 

Y^ + YZ^ + {-3tuY ~3uHzf + {~6t^u~3u^) YZ'^ 
+u (-6 - 2 u^) Z^ + {f + u) Z^ 

> print (mu=MilnorNumber(F2,{Z,Y},plex_min(Z,Y)) , 

> tau=TYURINANumber(F2,{Z,Y}, [plex_miii(Z,Y) ,tdeg(Z,Y)] ) ) 

/i = 5, T = 5 

and, by eliminating u,t and wi from equations wi = —3ut and (I7ip . define 

(74) W^:^ {viivl-9v2V5f -81vl = 0} , W'l := Wl n . 

Hence Theorem 16. 3f 2) gives that 

-1 — ^ 
• G /y^ (0) is a singularity of type Ac^ for generic A £ yV"2- 

Consider the associated standard basis: 

> MGB5c : =MilnorGroebnerBasis (F2 , {Z , Y} ,plex_miii (Z , Y) ) 

MGB5c {SYZ'^ - 6 (-3 tuY - 3 uHz) uh + 2 (-6 t^u - 3 u^) YZ 

3 y2 ^3 _ g |-_3 _ 3 ^2^^^ ^ _ 3 ^2^ ^2^ 

(48 - 24t2u) Z^r + (I92i^u2 - 144 uV) + (-16 t^u + 16 w^tS _^ 64 i^) } 

> for i to nops(MGB5c) do LeadingTerm(MGB5c[i] ,plex_min(Z,Y))end do; 

ISu^i^ Y 
18 uH'^, Y 
192 tV - 144 u^i'', Z^ 

> u := : F2 

Y^ + YZ^ + t^Z'^ 

> print (mu=MiliiorNumber(F2,{Z,Y},plex_min(Z,Y)) , 

> tau=TYURINANumber(F2,{Z,Y}, [plex_min(Z,Y) ,tdeg(Z,Y)] )) 

fi ~ 6, T — 6 

> unassign('u') : t := : F2 

y3 YZ^ -Su^YZ^ -2u^Z^ + Z^u 
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This gives precisely the same situation of generic Eq and Dq singularities previously 
considered, meaning that 

, 5 

• G /y^^(O) is a singularity of type Eq for generic A G V2 H W'2 — Vg , 

• G /a ^(0) is a singularity of type Dq for generic A G fl W2 = VVf n 

= V n vl 

Moreover the last leading coefficient in MGBhc gives the further relation 

> u := (4/3)*t-2 : F2 

y3 + YZ^ + {-At^Y ~ 16/3 t^Z)' - — f'YZ^ - — t^Z^ + Ijit^Z^ 

> print(mu=MilnorNuinber(F2,{Z,Y},plex_min(Z,Y)) , 

> tau=TYURINANumber(F2,{Z,Y}, [plex_min(Z,Y) ,tdeg(Z,Y)] ) ) 

/i = 6, T = 6 

meaning that 

-1 — ^ 

• £ /a (0) singularity of type Aq for generic A G W2 

where 

(75) wl W'2 n We and We {l6i;? - 729t)| = 0} 

The reader can then easily check that ([63)1 holds. □ 



6.6. Simple singularities of Eg, type. 

Theorem 6.11. Let be the Kuranishi space of a simple N -dimensional singular 
point G /"^(O) with 

N-l 

f{xi,...,XN+i) =^xl + x% + x%^^ 
i=i 

The subset ofT^ parameterizing small deformations o/O G /^^(O) to a simple node 
is the union of n hyper surf aces. Moreover, calling C any of those hyper surf aces, 
there exists a stratification of nested algebraic subsets giving rise to the following 
sequence of inclusions, c.i.p. squares and reducible c.i.p squares 
(76) _ _ _ _ 

c 5 W2 ^ — ^ W| ^ 5 w| ^ w| ^ w| ^ ^ wj 
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verifying the Arnol'd's adjacency diagram 

(77) Ai ^ A2 ^ A3 ^ Ai ^ ^ ^6 ^ ^7 




Eq ■< E-! 



where 

• C is the hypersurface ofT^ defined by equation \80\) . keeping in mind |yP[ j, 

• ^™ HfcLo ^/i' '^"'^ ^2" •= rifeL2 ^/i' "where Vfc, Wa.. are hypersurfaces of C 
defined by equations (BB W, IM and W^). 

• V, V" and V" are a hypersurface, a codimension 2 and a codimension 3 
complete intersections in C, respectively, defined by the latter equation in 
h8S\l . by \84-^ and by h85\) . respectively, 

• yy| are Zariski closed subsets of C defined by ifg5)] . [E^) . and J^] . 

In particular, complete intersection properties in diagram |76p are summarized by 
the following relations: 

(78) yv^nv^ = V n , 

w| n (V n Vo') = (V n v^) u , 
wl n (V n Vo") = (V" n v^) u (v^ n Ve) , 
(V" n Vo^) n (V(t n Ve) = vvj n (v" n v^) = {0} . 

Proof. By the Morse Splitting Lemma [6?2l our problem can be reduced to the case 

= 1 with f{y, z) = + z^ . To get an explicit basis of the Kuranishi space 
type: 

> F:= y"3 + z~5; 

> TyB := TyurinaBasis (F) ; 

TyB := [yz^,z^,yz^,z'^,yz,z,y,l] 

Therefore 

T = {l,y,z,yz,z ,yz ,z ,yz )c 
and given A = (Aq, Ai, . . . , A7) G T^, the associated deformation of Uq is 

Ua = {/a(2/, z) = 0} where f^{y,z):= 

= f{y, z) + Ao + Xiy + Mz + Xs.yz + A4Z^ + X^^yz^ + X(,z^ + Xjyz^ 

A solution of the jacobian system of partial derivatives is then given by a solution 
PA = iVA, za) of the following polynomial system in C[A][?;, z] 

/-q^ / 3y2 + Ai+A3Z + A5z2 + A7z3 = 

^ ' \ 5z* + X2 + 2X4Z + SAgz^ + y(A3 + 2A52 + SAtz^) = 
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giving 8 critical points for /a. Then pA, one of them, is actuaUy a singular point 
of Ua if and only if 

(80) PA e Uk <^ A G £ C where 

:= {yi + ^A + -^0 + AiyA + A22A + Mukza 

(81) +\izl + Agj/A^A + + A7yA4 = 0} • 

After translating y ^ y + yx, z ^ z + z;^^ we get 
/a (2/ + 2/A, ^ + ^a) = f{y, z) + 
+ + z\ + \(i + Alt/A + A22;a + XsVAZA + Mz\ + AsyA^A + Ae^A + A72/a4) 

+ (3yi + Ai + A32;a + As^ + Xrzl) y 
+ (54 + A2 + 2XiZA + SXezl + 2/a(A3 + + SAt^)) z 

+ (A3 + 2A52:a + 3A74) yz + 3yA y'^ + (104 + A4 + Aj^a + SAg^^A + S^rVAZA) z^ 
+ (As + SAt^a) yz"^ + {lOzl + Ae + A71/A) z^ + A7 yz^ + 5za z'^ 
as can be checked by setting K := yA, L := za and typing: 

> T := nops(TyB) : 

> F[Lambda] := F+sum(lambda[i]*TyB[T-i] ,i=0 .. T-1) 

FA := y^ + z^ + XQ + Xiy + X2Z + X^yz + XiZ^ + Xr,yz'^ + Xqz^ + Xryz^ 

> z := Z+L: y := Y+K: 

> F[Lambda] := collect (F [Lambda] , [Y, Z] , 'distributed' ) : 

FA :=Y^ + 3 KY^ + XjYZ^ + (A5 + 3 XrL) YZ^ + (3 XrL^ + A3 + 2 A5L) YZ 
+ {XyL^ + Ai + AgL^ + A3L + 3K^)Y + Z^ + 5 LZ'^ + (Ae + A7i4: + 10 L^) Z^ 
+ (3 XrKL + A4 + 3 Agi + 10 + X5K) 
+ (A2 + 3 A7-ft:i^ + 5 + 3 AfiL^ + X3K + 2 X5KL + 2 A4L) Z 

+ XeL^ + XiK + X2L + L^ + XjKL^ + Ao + AsifL^ + A4L^ + X3KL 

Define: 

Wo = A3 + 2A5ZA + 3A7z|^ , vi = 3yA 

(82) V2 = 104 + A4 + Asj/A + 3A6ZA + 3XryAZA , V3 = X^ + 3X7ZA 

Vi = 104 + Ae + A7J/A , V5 = A7 , vq = bzA 

and Vfe := {vk = 0}. Then the proof goes on exactly as in the E-j case until 
singularities: precisely by setting 

W2 {4ui'L'2 - = 0} 

(83) W3 := {vlvl-V2{v^V3+V2f =Q} 

V := [Avl + 27vl = 0} 

we have the inclusions' chain 

D £ D W2 D Wl D Vi n Wl = Vo^ D V n 

of subsets parameterizing small deformations whose generic fibre is either smooth 
or admits a singularity of type A\, A2, A3 , D4, and D5, respectively, as can be 
checked by typing 

> SD := [Y*Z, Y'2, Z'2, Y*Z'2, Z~3, Y*Z~3, Z"4] : 

> s := nops(SD): FL := Y"3+Z"5+sum(v [i] *SD [i+1] , i = .. s-1) 
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FL := Y^ + Z^ + vqYZ + viY^ + v^Z"^ + vjX Z"^ + v^Z^ + v^Y Z^ + v^:,Z^ 

> MGB := MilnorGroebnerBasis(FL,{Y,Z},plex_inin(Z,Y)) : 

> for i to nops(MGB) do LeadingTermCMGB [i] ,plex_iiiin(Z, Y))end do 

vo,Y 

2vi, Y 

-Avi^vo^ + 16i;i-^i;2, Z 

> F2 := Y~3+Z~5+(w[l]*Y+w[2]*Z)~2+smn(v[j]*SD[j+l] , j = 3 .. s-1) 

F2 := Y^ + Z^ + {wiY + W2Zf + v^Y Z^ + v^Z"^ + v^Y Z"^ + vqZ'^ 

> print (mu = MilnorNumber(F2,{Y,Z}, plex_miii(Z, Y))) 

M = 2 

> MGB2 := MilnorGroebnerBasis(F2,{Y,Z},plex_iiiin(Z,Y)) : 

> for i to nops(MGB2) do LeadingTenii(MGB2 [i] ,plex_min(Z, Y))eiid do 

2w2Wi, Y 
2u;i2, Y 

-l2wi^W2^ - l2wi^W2V3. + 12m;iV, Z"^ 

> w[2] := u*w[l] : v[4] := u*(v[3]+u"2) : F2 

Y^ + Z^ + {wxY + uwiZf + v^YZ'^ + u{v3+ u^) Z^ + v^YZ^ + vqZ'^ 

> Ml := Milnor(F2,{Y,Z},plex_inin(Z,Y)) : print (mu = Ml [4] ) ; 

M = 3 

> MGB3 := Ml[l] : 

> for i to nops(MGB3) do LeadingTerm(MGB3 [i] , plex_min(Z, Y))end do 

2uwi^, Y 

-8 wi^V3^ + 32 wi^ve - 32 wi'^uv^ - 48 wi'^u^vs - 72 wi^u", Z^ 

2wi^, Y 

> w[l] := 0: 

> print (mu = MilnorNumber(F2,{Y,Z}, plex_min(Z,Y) ) , 

> tau = TYURINANumber(F2,{Y,Z}, [plex_min(Z, Y) , tdegCZ, Y)])) 

= 4, r = 4 

> unassign('w[l] ') :unassign( ' v [4] ') :v[0] :=G:v[l] :=0:v[2] :=0:FL 

Y^ + Z^+ vzYZ'^ + ViZ^ + V5YZ^ + vqZ^ 

> MGB4 := MilnorGroebnerBasis(FL,{Y,Z},plex_min(Z,Y)) : 

> for i to nops(MGB4) do LeadingTerm(MGB4[i] ,plex_min(Z,Y))end do 

2V3, YZ 
-27 V -4^;3^ 
3, Y^ 

> v[3]:=-3*a"2 : v[4]:=-2*a"3 : FL 

Y^ + Z^ ~3 a^YZ"^ - 2 ct'Z^ + vr,YZ^ + vqZ"^ 

> print(mu = MilnorNumber(FL,{Y,Z},plex_min(Z,Y)) , 

> tau = TyurinaNumber(FL,{Y,Z},plex_min(Z,Y))) 
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= 5, T = 5 

> v[4] :=2*a"3 : FL 

+ c?YZ'^ + 2 a^Z'^ + v^YZ^ + v%Z^ 

> print (mu = MilnorNiimber(FL,{Y,Z},plex_min(Z,Y)) , 

> tau = TyurinaNiimber(FL,{Y,Z},plex_min(Z,Y))) 

H = 5, T = 5 

Let us now go on by considering: 

> MGB5 := MilnorGroebnerBasisCFL, {Y,Z},plex_min(Z,Y)) : 

> for i to nops(MGB5) do LeadingTerm(MGB5[i] ,plex_inin(Z,Y))end do 

3, y2 

-48a'^V5 + 48a^ve, Z^ 
-6a2, YZ 

> a := : FL 

Y^ + Z^ + V5YZ^ + veZ"^ 

> print (mu = MilnorNumber (FL, {Y,Z} ,plex_min(Z,Y) ) , 

> tau = TyurinaNumber(FL,{Y,Z},plex_min(Z,Y))) 

IJ, — 6, T — 6 

> MGB6 := MilnorGroebnerBasisCFL, {Y,Z},plex_min(Z,Y) ) : 

> for i to nops(MGB6) do LeadingTerm(MGB6 [i] ,plex_inin(Z, Y))end do 

3, y2 

Bv5, YZ^ 

> v[5] := : FL 

Y^ + Z^ + vqZ'^ 

> printCmu = MilnorNumber(FL,{Y,Z},plex_min(Z,Y)) , 

> tau = TyurinaNumber(FL,{Y,Z},plex_min(Z, Y))) 

/X = 6, T = 6 

> unassign('v[5] ') : v[6]:=0 : FL 

Y^ + Z^ + VsYZ^ 

> print (mu = MilnorNumber (FL, {Y, Z} ,plex_min(Z,Y) ) , 

> tau = TyurinaNumber(FL,{Y,Z},plex_min(Z,Y))) 

fi = 7,T = 7 

meaning that 

• G f][^{0) is a singularity of type Eq for A generic in Vq, 

• G /a ^(0) ^5 a singularity of type E-j for A generic in Vq n Ve- 

On the other hand, by considering the second leading coefficient in MGB5, define 
the following codimension 2 subset of C 

(84) V := [v^vl + 2>vl = Vivl ^2vl = 0] CV 

and type 

> unassignC 'v[6] ' ) : unassign( 'a' ) : FL 
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> v[6]:=a*v[5] : FL 

Y^ + - 3 a^YZ"^ - 2 a^Z'"^ + v^YZ^ + awgZ'' 

> print (mu = MilnorNumber (FL, {Y, Z} ,plex_min(Z, Y) ) , 

> tau = TyurinaNumber (FL, {Y,Z} ,plex_min(Z , Y) ) ) 

/i = 6, T = 6 

> MGB6b := MilnorGroebnerBasis(FL,{Y,Z},plex_min(Z,Y)) : 

> for i to nops(MGB6b) do LeadingTerin(MGB6b[i] ,plex_min(Z,Y))end do 

3, y2 

-6a2, YZ 
mc?v^^hc?v^^, Z^ 

> a:=0 : FL 

Y^ + + v^YZ^ 

> unassignCa') : a: =- (1/12) *v [5] "2 : FL 

Y^ + Z'' - 1/48 V5^YZ^ + ^ Z^ + V5Y Z^ - XjVlv^^Z^ 

864 

> print (mu = MilnorNumber (FL, {Y, Z} ,plex_min(Z,Y) ) , 

> tau = TyurinaNumber (FL, {Y,Z} ,plex_min(Z ,Y) ) ) 

M = 7, T = 7 

Consider the latter leading coefficient in MGB6b and deffiie the following codi- 
mension 3 subset of L 

(85) V" := V n {I2w6 + W5 = 0} , 
Then, by Theorem 16. 3r 3). we get that 

• G /a "'^(0) *s o, singularity of type Dq for A generic in V' fl Vq, 

• S /^^(O) is a singularity of type D7 for A generic in V" fl Vq, 

while V' DVq = Vq flVe and we get the singularities already discussed. A further 
specialization here gives the trivial deformation. 

Let us then come back to consider Wf and look at the second leading coefficient in 
MGB3. Define 

(86) W4 {I6vlv2vl - [{viv^ + 3^2)' - Avfvg]^ = O} 

whose equation is obtained by eliminating u and t from the following set of equa- 
tions, parameterizing Wl \ Vf, 

(87) V2 — u^vi — , V4 ~ u{v3 + u^) ~ , 4'i;i(z)6 — uv^) — [vj, + 3u^)^ = . 

Observe that V? C W| ^ Vq C W| and define the following codimension 1 Zariski 
closed subset of Wf 

(88) w| v^r^yi _ 

Then0 

^'^The reader may check that choosing V4 = 2a^ , vq = —av^ , 12a = tig leads to same results 
on Milnor and Tyurina numbers and to the same condition defining V" in II85I I. 
"'^"'^The same considerations explained by footnote [6] are still holding, here. 
^^The reader may check that the choice 1)3 = —2tw\ — 3ti^ leads to the same conclusion. 
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> v[6] :=t~2+u*v[5] : v [3] : =2*t*w [1] -3*u~2 : F2 

+ + (wiF + uwxZf + (2 twx - 3 v?) YZ'^ + 
u (2 twi - 2 u^) Z^ + v^YZ^ + (t^ + uv^) Z^ 

> printCmu = MiliiorNumber(F2,{Y,Z},plex_min(Z,Y)) , 

> tau = TYURINANumber(F2,{Y,Z}, [plex_min(Z,Y) , tdeg(Z,Y)])) 

^ = 4, T = 4 
and Theorem 16. 3r 2) allows to conclude that 

• e /^^(O) is a singularity of type for A generic in yV|. 
Then type: 

> MGB4b := MiliiorGroebiierBasis(F2,{Y,Z},plex_min(Z,Y)) : 

> for i to iiops(MGB4b) do LeadingTerm(MGB4b[i] ,plex_min(Z,Y))end do 

120tV^u + 40tV^?^5 -40^^^;l^ Z^ 
luwx, Y 
2wi^, Y 

> w[l] :=0 : F2 

Y^ + Z^ -3 u^YZ^ - 2 u^Z^ + v^YZ^ + {t^ + uv^) Z^ 

> printCmu = MilnorNumber(F2,{Y,Z},plex_min(Z,Y)) , 

> tau = TyurinaNumber(F2,{Y,Z},plex_min(Z,Y))) 

/i = 5, r = 5 

This means that Vi n >V| = V n Vq obtaining a generic singularity, as already 
described above. Go on: 

> unassign('w[l] ') : t:=0 : F2 

Y^ + Z^ + {wiY + uwiZf - 3 u^YZ^ - 2 u^Z^ + vr-,Y Z^ + uv^Z^ 

> printCmu = MilnorNumber(F2,{Y,Z},plex_min(Z,Y)) , 

> tau = TYURINANumber(F2,{Y,Z}, [plex_min(Z,Y) ,tdeg(Z,Y)] )) 

^ = 4, T = 4 

> unassign('t') : u:=0 : F2 

> printCmu = MilnorNumber(F2,{Y,Z},plex_min(Z,Y)) , 

> tau = TYURINANumber(F2,{Y,Z}, [plex_min(Z,Y) ,tdeg(Z,Y)] )) 

^ 4, T = 4 

Then we have to consider the relation assigned by the first leading coefficient in 
MGB4b, giving the further condition 

Vi — Wiv^t — 3ut^ = , 

which added to (|87p parameterizes the following (reducible) codimension 4 Zariski 
closed subset of C 

(89) W| := W| \ Vi 
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where E 

W5 := {[Avlvl{viV3 + 3w2)2 + 16vl{vf + V1V3V5 + 3v2Vz) - 9v2{viV3 + Swa)"*]- 
(90) [iv^vlivivs + 3w2)2 + Wvlivj - V1V3V5 - Swat's) - 9v2{viV3 + 3v2)^] = 0} 
Since 

> u:=l/12*(b-2-v[5]-2) : w[l] :=(l/2)*t*(v[5] -b) : F2 

+ + {l/2t{v5~ b)Y + 1/2 {l/Ub^ -1/I2v5^)t{v5 -b)Z)^ + 
(t'^ - 5) - 3 (1/1252 _ 1/12^,52)2^ YZ''+ 

(1/1252 _ 1/12 VgS) (^^2 _ 5) _ 2 (1/12^2 _ l/12i;52)2^ Z^+V5YZ^ + 

{f + {l/12b'' - 1/12V5'') V5) Z* 

> M5 := Milnor(F2,{Y,Z},plex_min(Z, Y)) : print (mu = M5 [4] ) 

^ = 5 

then Theorem [Ql (2) gives thatQ 

• G /^^(O) is a singularity of type ^5 for A generic in Wl. 

Furthermore: 

> MGB5:=M5[1] : for i to nops(MGB5) do 

> factor(LeadingTerm(MGB5[i] ,plex_min(Z,Y)))end do 

576460752303423488 ^ ^ ^ ' ' 

1/2^2 (wg _ 6)2 (1/1252 _ 1/12 t;52) ^ Y 
l/2t2(^;5_6)2, F 

> t := : F2 

+ - 3 (1/1252 _ 1/12^52)2^^2 _ 2 (1/1252 - 1/12W52)^Z3 + 
Vsi"^'"^ + (1/1252 _ 1/12 t;52) „g^4 

> M5b := Milnor(F2,{Y,Z},plex_min(Z,Y)) : print (mu = M5b [4] ) 

/i = 6 

> T5b := TYURINA(F2,{Y,Z}, [plex_min(Z,Y) , tdeg(Z,Y)]) : print(tau 
= T5b[4]) 

r = 6 

Observe that, by identifying a = (52 — i;|)/12, we are precisely deahng with defor- 
mations parameterized by the above considered algebraic closed subset V" H Vg of 
£, whose generic fibre has a singularity of type Dq. On the other hand 

> unassign('t') : v[5]:= -b : F2 

Y^ + Z^ + t^b^Y^ -2t%YZ^ - bYZ^ + t^Z* 

> M5c := Milnor(F2, Y, Z, plex_min(Z, Y)) : print(mu = M5c [4] ) 

^ — 5 

> v[5] := b : F2 

Y^ + Z^ + bYZ^ + t^Z^ 



^■^The following equation of W5 is obtained by carefully applying Maple's eommands eliminate 
and Eliminationldeal in the Polynomialldeals package. 

^"^The reader may check that setting w\ := t{v^ + b)/2 leads to the same conclusion. 
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still giving the above considered deformations parameterized by Vq whose generic 
fibre has a singularity of type Eq. Let us then consider the relation given by the 
last factor in the first leading coefficient of MGB5: 

> t:=c*b : v[5] :=b-8*c~2 : F2 

Y^ + Z^+ (-4c^bY-4 (l/12&2-l/12 {b - 8 c^f^ c^bZy + 
(^-8cV-3 (1/12 62-1/12 (6-8c2)')'^ YZ^+ 

(l/Ub^-l/U (6-8c2)') (^-8cV-2 (1/12 6^-1/12 (6-80^)')'^ 

(6-8c2) yz3+(c262+ (1/12 62 _ 1/12 (6-8c2)') {b-8c^)'^Z* 

> M5d := Milnor(F2, {Y,Z}, plex_min(Z , Y) ) : printCmu = M5d[4]) 

/i = 6 

> T5d := TYURINA(F2, {Y,Z}, [plex_inin(Z , Y) , tdeg(Z,Y)]) : 

> print (tau = T5d[4]) 

T = 6 

> MGB6a := M5d[l] : for i to nops(MGB6a) do 

> LeadingTerm(MGB6a[i] , plex_inin(Z, Y)) end do: 

> for i to nops(MGB6a) do 

> f actor(LeadingCoeff icient(MGB6a[i] , plex_inin(Z, Y))) end do 

32 

-3670016 0^*^6^ (6 + 8c2) (6+ 16 0^)^ 
ipcV(-4c2 + 6) 

> c := : F2 

Y^ + Z^ + bYZ'^ 

> unassign('c') : b:=0 : F2 

Y^ + Z^-— YZ^c^ + ^ Z3ci2 - 8 YZ^'c^ + — Z^c^ 
3 27 3 

> M6a := Milnor(F2, {Y,Z}, plex_min(Z,Y) ) : printCmu = M6a[4]) 

M = 7 

> T6a := TYURINA(F2, {Y,Z}, [plex_inin(Z,Y) , tdeg(Z,Y)]) : 

> print (tau = T6a[4]) : 

T = 7 

> b := 4*c"2 : F2 

Y^ + Z^ + 256 y^cio - 128 YZ'^c^ - 4 YZ^c^ + 16 Z'^c^ 

> M6b := Milnor(F2, {Y,Z}, plex_min(Z, Y)) : printCmu = M6b[4]) 

/i = 6 

> T6b := TYURINACF2, {Y,Z}, [plex_minCZ, Y) , tdegCZ, Y)]) : 

> print Ctau = T6b[4]) 

T = 6 

> b := -8*c"2 : F2 

y3 _^ ^5 ^ |-32 c'Y - 512 c^zf - 1280 YZ'^c^ + 16384 Z^c^'^ - 16 YZ^c^ + 320 Z^c^ 

> M6c := MilnorCF2, {Y,Z}, plex_minCZ, Y)) : printCmu = M6c[4]) 
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> T6c := TYURINA(F2, {Y,Z}, [plex_min(Z, Y) , tdeg(Z, Y)]) : print (tau 
= T6c[4]) 

> b := -16*c~2 : F2 

2498560 



Z^c^^ - 24 YZ'^c^ + 896 Z^c^ 



27 

> M6d := Milnor(F2, {Y,Z}, plex_min(Z, Y) ) : print (mu = M6d[4]) 

/i = 6 

> T6d := TYURINA(F2, {Y,Z}, [plex_min(Z, Y) , tdeg(Z, Y)]) : 

> print (tau = T6d[4]) 

r = 6 

This means that: 

• equation — b'^v^ — — defines the following codimension 5 (reducible) 
algebraic subset of C 

(91) n| We n VV| , 

where 

We := {[32vf - 2vlv5{viV3 + 3v2){Svl - Sv^v^ - V1V3V5) + (viv^ + Sv^f]- 

(92) [32^9 + 2i;fv5(i>ii;3 + 3v2)i8vf + 3V2V5 + V1V3V5) - (wifa + Svz)^] = 0} 

whose generic point A is such that G f^^{0) is an Ae singularity, 

• setting c = means studying deformations parameterized by Vp flVe, gener- 
ically admitting an singularity, as already observed above, 

• and setting 6 = means studying deformations parameterized by Vq H V", 
generically admitting a D7 singularity and already considered above, too, 

• the further step is then to consider the relation b + 8c^ ~ defining the 
following codimension 6 (reducible) algebraic subset of C 

(93) Wl := W7 n >V| with W7 := {256w2 - viv^ = O} 

whose generic point A is such that £ /^^(O) is an singularity. 
The check of relations (l78l) are then left to the reader. □ 



6.7. A list of very special adjacencies. As a consequence of the analysis per- 
formed in the previous sections, we are now able to concretely write down some 
very special small 1-parameter deformations of a An , Dn , Ee , E-^ or Eg, realizing 
adjacencies not directly mentioned in [3 and [5] (except for those in I6.7.ip . The 
1-parameter deformations we are going to list in the following are obtained by last 
steps in proofs of Theorems 16 . 5i WM 16 .8i 16 . 101 and 16 . Hi giving precisely 1-parameter 
deformations, after some possible parameter's re-scaling. 



^'^The following equation of Wg is obtained by carefully applying Maple's commands eliminate 
and Eliminationldeal in the Polynomialldeals package. 
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6.7.1. An-1 < — Dn- Assume that n > 4 is either n = 2m + 4 when n is even, or 
n = 2m + 5 when odd. Then consider the 1-parameter family Xt := {/t(x) = 0} , 
t €C, where 

N-l 

/o(x) := ^ a;^ + x% a;jv+i + a;^+\ 

i=l 

and either 

2m+2 

/t(x) := /o(x) + t{xN + if^XN+if + {-tf^^^~^x%+i in even) 

fe=3 

or 

2m+3 

/t(x) := /o(x) + t\xN + e^^+^XN+if + J2 odd). 

fc=3 

Then Xq is an isolated point and, for generic t G C, Xt admits the unique 
singular point G /t~^(0) which is of type An-i- 

6.7.2. A5 < — Eq. Consider the 1-parameter family Xf := {/t(x) = 0} , t € C, with 

N-l 

/o(x) := + x% + x%+i 

i=l 

Then is an isolated Eq singular point and, for generic t € C, Xt admits the 
unique singular point e /t~^(0) which is of type A5. 

6.7.3. < — Eq. Let /o(x) be as in the previous case and assume 

/t(x) := /o(x) - 3t''xNX%+i - 2t^x%+i . 

Then, for generic t G C, Xt admits the unique singular point G /t~^(0) which is 
of type D5. 

6.7.4. Ae < — E^. Consider the 1-parameter family Xt := {/t(x) = 0} , f G C, with 

AT-l 

/o(x) := ^ x^ + x% + xnx%_^_^ 

i=l 

/t(x) := /o(x) + 'l32t^{xN + 'itxN+if - 120t'^XNX%+^ - 416^3x^^+1 + 7tx%+^ 

Then Xq is an isolated E^ singular point and, for generic t € C, Xt admits the 
unique singular point G /t~^(0) which is of type Aq. 

6.7.5. Dq < — £'7. Let /o(x) be as in the previous case and assume 

/t(x) := /o(x) - 3t'^XNX%_^_l - 2t^x%^-^ + te^+i . 

Then, for generic t & C, Xt admits the unique singular point S /r^(0) which is 
of type £»6- 
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6.7.6. A7 < — Es- Consider the 1-parameter family Xt '■— — 0} , t € C, with 

N-l 

/o(x) := 



N-l 

„2 , ^3 



1=1 

/t(x) := foix)+t''{xN -t^XN+if - 5t'^XNX%+T^+At^x%^^-UxNX%+T^ + 5t^x%+-L 

Then Xq is an isolated i?8 singular point and, for generic t ^ C, Xt admits the 
unique singular point £ /t^^(O) which is of type Aj. 

6.7.7. Di < — Eg. Let /o(x) be as in the previous case and assume 

/t(x) /o(x) - 27t'^XNX%^, + dAt'^xl^^ ~ 6txNX%^, + 18t^x%^^ . 

Then, for generic t £ C, Xt admits the unique singular point G which is 

of type D'j. 
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